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Inhoud van dit nummer 


Computer Info Beurs ó 

Op 11 maart aanstaande wordt opnieuw 
de traditionele koopbeurs gehouden in de 
RAI. Op pagina 7 leest u hoe u als abon¬ 
nee gratis toegang kunt krijgen. 

De geschiedenis van 
Commodore 9 

Aan de hand van een aantal inmiddels his¬ 
torische foto's wordt de geschiedenis van 
de makers van onze computers verteld. 


GEOSInfo 13 

De vaste GEOS rubriek met daarin onder 
andere de beantwoording van vragen van 
lezers. 


Gebruik van GEOS 15 

Voor de beginnende en gevorderde ge¬ 
bruiker van GEOS: hoe gebruik ik mijn 
operating systeem. 


GEOS en printers 19 

Het vierde deel van de cursus GEOS ma¬ 
chinetaal gaat over het gebruik en aanstu¬ 
ring van printers. De eerste van drie afle¬ 
veringen over printers behandelt het aan¬ 
sturen van printers vanuit applicaties. 


Beginnen met de 64 24 

Voor alle nieuwe C-64 gebruikers (en dat 
zijn er nog elk jaar heel wat) gaan we een 
aantal elementaire zaken behandelen. De 
eerste keer een programma om program¬ 
ma’s te listen. Ook voor gevorderden. 


Invoerroutine C~64 28 

Vaak moet de gebruiker in een program¬ 
ma informatie invoeren. Daarvoor hebben 
Johan&Johan een routine gemaakt, zowel 
in Basic als machinetaal, die men zelf in 
programma’s kan toepassen. 


Hardcopy 128 54 

Het afdrukken van een schermbeeld op de 
printer kan op vele manieren. Met een uit- 
ebreide listing maken Johan&Johan dui- 
elijk hoe dat werkt. 


Listing-rubrieken 

Cl 6 52 

C-64 31 

Amiga 72 


Amigo Deveioper Con¬ 
ference 60 

in Frankfurt werd in januari een conferen¬ 
tie gehouden voor ontwikkelaars van 
hardware en software voor de Amiga. Lex 
Boeré bericht over de sfeer en de nieuwe 
produkten die werden getoond. 


Amiga Hints en Tips 64 

Opnieuw drie pagina’s met tactische ad¬ 
viezen, vragen van gebruikers en trucs om 
het werken met uw Amiga te verbeteren. 


AmigaDOS(6) 67 

Het zesde deel van de AmigaDOS cursus 
gaat verder met de commando’s voor de 
nieuwe Workbench versie 1.3. 


Amiga en video 83 

UIco Schuurmans bespreekt de nieuwe 
ontwikkelingen op het gebied van video- 
toepassingen. En dat zijn er heel wat. 


Zelfbouw MIDI 89 

De knutselaars kunnen opnieuw aan het 
werk, met dit artikel waarin een muzie'<-in- 
terface voor de Amiga wordt gebouwd. 
Ook is er een demo-programma bij afge¬ 
drukt. 


Vaste rubrieken 


Strip 

18 

Misser 

70 

Kleine advertenties 

98 

Datakolom 

30 


Redactioneel 

Terwijl de gebruikers van de C-64 en C-128 iekker doorgaan met hun compu¬ 
ter, en in dit nummer naar wij hopen weer wat van hun gading vinden, begint 
de Amiga echt lekker te draaien bij veel mensen. Dat blijkt uit de listings en 
brieven die de redactie ontvangt. Allerlei bedrijven, ook Commodore zelf, blij¬ 
ven nieuwe produkten uitbrengen voor de Amiga, en dat is verheugend. He¬ 
laas kan er voorde andere modellen wat minder van af, maar bijvoorbeeld voor 
de C-64 blijven de meeste nieuwe spellen gewoon uitkomen. En verder moe¬ 
ten redactie en lezers samen maar veel doen aan software en hardware ont¬ 
wikkelingen. Voor de Amiga zijn deze ontwikkelingen nu wat beter gecoördi¬ 
neerd, bijvoorbeeld via de Developers Conferences. Misschien dat hiermee 
problemen - zoals met sommige software in combinatie met de nieuwe Kick¬ 
start 1.3 -, die voortkomen uit een niet volgens specificaties programmeren, in 
de toekomst voorkomen kunnen worden. Want met in de toekomst misschien 
niet meer werkende hard- of software is niemand gediend. 
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Op 11 Maart is het weer zover, in de RAI is dan alweer de 11e Computer Info beurs. 
Van 10 tot 5 een zoeken, kijken, kopen gebeuren voor de computeraars. 

Computer Info Beurs 

Traditie voor koopjesjagers 

W aar vindt een PC gebruiker, die zijn systeem eens wat wii uitbreiden, 
de spuiien van zijn gading. Hij kan naar een computerwinkei stappen, 
en er zijn zeker zaken, waar men dan met goed advies en redelijke prijzen 
geholpen wordt. Meestal zijn dat soort winkels/speciaalzaken echter in de 
grote steden te vinden en dat beperkt de mogelijkheden. 



Men heeft ook wel eens behoefte, om 
gewoon eens te kunnen snuffelen in 
wat er zoals te koop is, zonder direct 
het gevoel te hebben, dat men ter 
plekke ook iets moet aanschaffen. 
Zeker voor de leek is het nog een wat 
geheimzinnig gebeuren, hij of zij ver¬ 
liest gauw het zelfvertrouwen, indien 
de kreten als Hercules, MGA, RAM 
en Controllers hem om de oren vlie¬ 
gen. 

Naast de hele grote "demonstratie en 
vakbeurzen" voor computer en com- 
puter-toepassingen als de Efficiency 
Vakbeurs zijn er ook computerbeur¬ 
zen, die meer bedoeld zijn voor de 
brede groep van computer-gebruikers 
en computer-hobbyisten met een ei¬ 
gen micro. Het gaat om de mensen, 
die zo’n ding gebruiken om er wat 
mee te spelen, om wegwijs te worden 
op de computer of voor het kleinere 
bedrijf en wat meer serieuze toepas¬ 
singen. Daarvoor hebben ze vaak niet 
de financiële ruimte, zoals grote be¬ 
drijven die kennen. Aan de andere 
hebben ze wel wat meer tijd over voor 
hun hobby, willen zelf best iets inbou¬ 
wen of aanpassen of nemen genoe¬ 
gen met demonstatiemodellen. 

Koopbeurs 

Voor hen zijn er ieder jaar een aantal 
computerbeurzen, zoals de HCC Da¬ 
gen in het najaar en de traditionele 
Computer Info beurzen in de RAI in 
Amsterdam. Dit voorjaar is er eerst de 
Computer Info beurs in de RAI op 11 
maart 1989. In dit geval gaat het om 
een typische koop- en kijkbeurs, men 
kan er nieuwe dingen zien, maar ook 
direct aanschaffen en heel wat be¬ 
zoekers verlaten de RAI met grote do¬ 
zen met nieuwe spullen onder de arm. 
Deze beurzen blijken in een grote be¬ 
hoefte te voorzien, 15.000 bezoekers 


voor de Computer Info beurs is ge¬ 
bruikelijk. Een zo groot aantal bezoe¬ 
kers op één dag is zelfs voor de RAI 
een hele prestatie. Het is overigens al 
de 11 e keer, dat deze beurs georga¬ 
niseerd wordt, vroeger heette het de 
Commodore-Info beurs, toen die ma¬ 
chines nog veruit de meest populaire 
huiscomputers waren. Tegenwoordig 
ligt het accent al wat meer op de PC, 
dat is de machine waar men nu veelal 
naar kijkt. De tienduizenden, die mid¬ 
dels een zogenaamd PC Privé project 
een PC thuis hebben staan, weten 
daar vaak nog niet veel raad mee en 
komen dan op zo’n beurs weer een 
heleboel aan de weet, ook op het ge¬ 
bied van de software en de z.g.n. Pu¬ 
blic Domain software. 

Breed aanbod 

Op de beurs komen nogal wat hande¬ 
laren, die spullen voor de verschillen¬ 
de PC-varianten, MS-DOS, de Com¬ 


modores, de MSX-en, Amiga, Atari 
ST en Schneiders aanbieden. Ook de 
prijs van de micro’s en randappara¬ 
tuur is, zoals gebruikelijk op dit soort 
koopbeurzen, fors lager dan normaal 
in de winkels. Dat is natuurlijk een 
extra reden om er naar toe te komen 
en wat geld mee te nemen, indien 
men toch al plannen had om wat za¬ 
ken voor de computer aan te schaf¬ 
fen. 

Waarschuwing 

Maar pas op, we weten dat het vaak 
gaat om partijen uit het buitenland, die 
misschien qua meegeleverde docu¬ 
mentatie, qua aansluitsnoeren en 
software niet helemaal optimaal zijn. 
Dit betreft vaak zogenaamde ‘grijze’ 
import, kwalitatief niet minder, maar 
zonder de garantie van de nederland- 
se ‘officiële’ importeur. Wees daarom 
voorzichtig, kijk en vergelijk, maar be¬ 
sef dat al te goedkoop ook duurkoop 


6 


Commodore Info 2189 




kan betekenen. Maar duur hoeft het 
allemaal niet. Voor rond de tweedui¬ 
zend gulden kan men tenslotte al een 
"kloon" aanschaffen, al is die voor die 
prijs vaak wat mager uitgerust. Het is 
erg moeilijk te beoordelen, of een 
goedkope PC nu ook werkelijk zal vol¬ 
doen. Het vreemde is, dat de compa¬ 
tibiliteit, vaak de grootste zorg van de 
koper, bij de allergoedkoopste model¬ 
len meestal beter is dan bij de iets 
duurdere modellen. Dat komt omdat 
de Taiwanese makers daarvan ge¬ 
woon de IBM PC compleet kopiëren, 
zonder op mogelijke inbreuk of legale 
complicaties te letten. 

Tweedehands 

Een nieuw fenomeen vormt de handel 
in gebruikte computers. Er zijn een 
aantal bedrijven op deze markt actief, 
maar de Benelux Computer Exchan¬ 
ge heeft al aangekondigd, op de 
Computer Info Beurs groot aanwezig 
te zijn. Men kan dan middels formulie¬ 
ren aangeven in welk soort appara¬ 


tuur men geïnteresseerd is of wat 
men eventueel wil verkopen. Heeft u 
spullen, die mogelijk interessant zijn, 
neem ze dan niet mee, maar bel van 
tevoren even met de BCE, 020- 
203239. Met name het inruilen van 
XT’s en PC’s voor nieuwe, gebruikte 
of showroommodellen AT’s blijkt aan 
te slaan. 


Succes 

De Computer Info beurs is voor ieder¬ 
een, die op het gebied van de eigen 
hobby bij wil blijven. Maar ook voor 
diegene, die meer naar de toekomst 
kijkt, waarin een zakelijk gebruik van 
de als hobby aangeschafte appara¬ 
tuur te verwachten is. 

Dat houdt dan weer een aanspo¬ 
ring in om ook op 11 maart aan¬ 
staande in de RAi weer van de par¬ 
tij te zijn. De beurs is open van 10 
tot 17 uur. De toegang is f 7,50 per 
persoon aan de kassa van de RAi. 
Het wordt weer een prima geiegen- 
heid om aiieriei zaken te zien en 
aan te schaffen. 

Voor abonnees iigt er een toe¬ 
gangskaart kiaar in ruii voor hun 
adresband (van dit nummer: met 
rode opdruk). Bewaar die dus, en 
vergeet hem niet mee te nemen 
naar de RAi. Degenen, die op de 
beurs aisnog abonnee worden krij¬ 
gen de toegang terugbetaaid. 



GRA TIS TOEGANG 

11e COMPUTER INFO BEURS 
BESPAAR ƒ 7,50 

11 maart Rai te Amsterdam van 10.00 uur tot 17.00 uur 

Hoe?? 

Heel eenvoudig, Sala Communications betaait een ieder z’n entn 
terug die op de beurs een abonnement neemt op: 

MsX Info, Commodore Info, PC Business Info, Computer Info of Ut^. 


DUS VOOR EEN ABONNEMENT VAN EEN JA4R, BENT U 
MET DE COMPUTER INFO BEURS SNEL KLAAR. 
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Historie 


Bij het doorspitten van wat oude bakken met fotomateriaal over Commodore kwamen 
we een aantal plaatjes tegen, waarmee de bewogen historie van deze microcomputer- 
pionier nog eens aardig in beeld gebracht kan worden. 


Commodore: Historie in beeld 


D e geschiedenis van Commodore Business Machines is, ai wii men dat 
eigenlijk niet meer weten, toch ook voornamelijk de geschiedenis van in- 
dustrie-pionier JackTramiel. Deze in Polen geboren geweldenaar overleef¬ 
de Auschwitz, vond eerst in Canada en daarna in Amerika een nieuw vader¬ 
land en presteerde het om twee maal een miljardenimperium op te bouwen. 
Toch ging dat allemaal niet zo gemakkelijk, want tot het begin der zeventi¬ 
ger jaren deden Jack en compagnon Irvin Gould niet veel meer dan typema¬ 
chines repareren. Pas met de opkomst van de electronische rekenmachines 
wist het bedrijf zich te profileren. Maar toen ging het ook tamelijk snel, want 
met de kennis over chips, die eerste handrekenmachientjes waren tenslot¬ 
te al kleine computers, kon men de stap naar de hobby-computer maken. 



Jack Tramiel 


In het midden van de jaren zeventig 
ging Jack samenwerken met Chuck 
Peddle, die toen de chips voor de eer¬ 
ste CBM computer, de PET, maakte. 
Het was een gouden greep, om zelf de 
chipsproduktie ter hand te nemen, 
want daarmee was men in de gele¬ 
genheid, ook concurrenten als Apple 


en later Atari die chip te leveren en 
daarmee een soort standaardisatie te 
bereiken. De 6502 processor was in 
die tijd zoiets als de Z-80 later en de 
8088 in het begin van de jaren 80. Pas 
in de CBM 64 stapte men over op de 
6510 chip. 

In die tijd ging het om Apple, Tandy en 
Commodore, de grote drie op de hob- 
bycomputermarkt. 

Alle drie bedrijven 
hebben het, met 
ups en downs, uit¬ 
eindelijk toch vol¬ 
gehouden, al was 
Commodore een 
aantal keren ge¬ 
vaarlijk in de buurt 
van een faillise- 
ment. 

Eén van de ge¬ 
vaarlijkste crises 
was toen Jack 
Tramiel ruzie 



Chuck Peddle, de vader van de 6502 


Amiga gelanceerd, waar overigens 
ook Tramiel probeerde tussen te ko¬ 
men, omdat Atari al eerder met het be¬ 
drijf Amiga had gesproken. 



De 8000 serie werd in een Porsche design uitgebracht met de 
modellen 8096 en 8032, met de 8296 met ingebouwde diskdrive. Er 
werd, een wereldprimeur, een 1,2 MB Taruion floppy drive 
geleverd, voor die tijd een enorme capaciteit, die voor zakelijk 



Bij de presentatie van de Amiga in Hannover, na het vertrek 
van Tramiel, moest Irvin Gould meer naar voren treden, hier 
naast de toenmalige president Rattigan, intussen ook al weer 
vertrokken. 


gebruik veel werd gebruikt. 


kreeg met Gould 
en vertrok, om een 
half jaar later de 
resten van het ook 
ooit zo grote Atari 
op te kopen en met 
de ST serie zijn 
oude bedrijf te 
gaan beconcurre¬ 
ren. Commodore 
had intussen de 


En dan waren er de vele fraaie, soms 
minder fraaie en soms heel vreemde 
machines, zoals de Max, de CBM-10, 
die alleen in Japan verkocht werd, de 
SFD 1001, een diskdrive van 1 MB en 
veel meer. 

Maar laten we hier verder niet te veel 
feiten en feitjes geven, de foto’s spre¬ 
ken, met wat commentaar, voor zich. 
O ok in een volgend nummer nog 
meer foto’s uit de oude doos. 
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Historie 






Brian Dougherty, de maker van GEOS, hier nog in De Commodore MAX VIC-10, een goedkope opvolger voor de VIC-20, is alleen 
zijn tijd als oprichter van videospel-ontwikkelaar in Japan korte tijd verkocht. 

Imagic 


COMMODORE PUBLIC DOMAIN SELECTIE 


Infolist heeft nu, uit een wereldwijd aanbod aan Public Domain software voor de Commodo¬ 
re C-64 en Commodore C-128 een selectie samengesteld van Utilities, spelletjes, en diverse 
korte programma’s. Het gaat om Engelstalige Public Domain software van goede kwaliteit en 
zekere diepgang, enig inzicht in het gebruik van Utilities is gewenst. Alleen leverbaar op 5,25" 
disks in verschillende uitvoeringen voor de C-64 en C-128. 

Per set van 3 schijven ƒ 26,- 

• Selektie A-64 26,- incl. BTW en verzenden 

• Selektie B-64 26,- incl. BTW en verzenden 

• Selektie C-64 26,- incl. BTW en verzenden 


• Selektie A-128 26,- incl. BTW en verzenden 

• Selektie B-128 26,- incl. BTW en verzenden 

• Selektie C-128 26,- incl. BTW en verzenden 

Bij aankoop van 3 selekties (9 schijven) een speciale extra schijf 
gratis. 

In iedere selektie vindt u zowel utility software voor diskbeheer, 
printen, database, communicatie als spelletjes als korte algemene 
programma’s. 

Uitsluitend te bestellen door overmaken van ƒ 26,- per selek¬ 
tie op gironummer 3157656 van infolist, A’dam. 

Geef duidelijk aan om welke selektie en computer het gaat. 


INFOLIST SOFTWARE 
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GEOS 


Onder de titel GEOS INFO verzorgen Bert Venema en Peter Boncz een rubriek voor 
de gebruikers van dit populaire besturingssysteem. Lezers worden van harte uitgeno¬ 
digd om al hun vragen, tips en trucs op te sturen. 


GEOS-INFO 

Vragen van lezers 



Fontmaker 

J.H. Boelsen uit Farmsum vroeg meer 
informatie over de listing van de Font¬ 
maker uit Cl nr. 5, 1988. Wanneer 
men de font-maker start, komt men in 
het hoofdmenu, met 4 opties: 

1) editen 

2) saven 

3) laden 

4) conversie. 

Het is de bedoeling, dat men eerst be¬ 
gint met editen. Dan wordt gevraagd 
naar de breedte en hoogte van de let¬ 
ters, en men komt in een veld van bijv. 
20x20 terecht. Bovenaan het scherm 
staat een letter, die aangeeft onder 
welke toets het karakter (dat U kunt 
maken door de cursor te bewegen en 
op de juiste plaatsen op return te druk¬ 
ken) zit. Men begint bij de "a". Met F1 
gaat men naar de volgende letter, met 
F3 naar de vorige. F7 maakt het veld 
een puntje smaller, en F8 een puntje 
breder (maar niet breder dan de aan 
het begin opgegeven maximale letter- 
breedte). Deze bredere en smallere 
letters is één van de duidelijke ken¬ 
merken van GEOS (partial spacing). 
F5 gaat terug naar het hoofdmenu. 
Daar kunt U bijvoorbeeld het font-in- 
aanbouw op disk saven. Het maken 
van een lettertype is een nogal groot 
karwei (256 karakters), dus U zult 
waarschijnlijk wel van deze optie ge¬ 
bruik maken. Let wel, deze file met 
daarin het lettertype is niet in GEOS te 
gebruiken, die is alleen voor intern ge¬ 
bruik in de Font-maker. Met optie 3 
(laden) kunt U, dat spreekt vanzelf, de 
zaak weer inladen, en verdergaan 



waar U gebleven was. De laatste op¬ 
tie in het hoofdmenu is conversie, aan 
te roepen als het lettertype klaar is. 
Het lettertype wordt dan op GEOS- 
manier in een USR file gesaved. Deze 
file moet op de Geowrite diskette ge¬ 
zet worden, en kan dan gebruikt wor¬ 
den. 

VLIR-fies overzenden 

We kregen een brief van Stephan 
Speelmens, die de Systeem Operator 
is van de MailBox van BBS-Water- 
land. Om GEOS VLIR files te kunnen 
verzendengebruikt hij een converteer- 
programma, dat VLIR files omzet in 
SEQuentiele en omgekeerd. Nu is 
deze converter zelf ook een VLIR file 
en dan ook niet per MODEM te ver¬ 
zenden. Wat hij zocht was dus een 
niet-GEOS converteerprogramma 
VLIR-SEQ en SEQ-VLIR. Aangezien 
wij van GEOS-INFO zo’n programma 
niet bezitten, kunnen wij hem daar he¬ 
laas niet mee helpen. Wat we wel kun¬ 
nen, is een oproep doen aan onze le¬ 
zers voor een dergelijk programma. 
Dus wie zo’n converter heeft of kan 
maken, stuur het naar: 

Stephan Speelmans 
A.W. van Voordenlaan 17 
1241 AN Kortenhoef 

Langzaam printen 

G.B. Breukel uit Den Haag vindt dat 
GEOS i.c.m. zijn Star NL-10 zo lang¬ 
zaam print. Hiervoor is echter geen 
oplossing, omdat GEOS gebruik 
maakt van de grafische printmode. En 
dan worden alle printers langzamer. 
Het resultaat is wel dat u een zeer 
hoogwaardig eindprodukt krijgt. 

Nog een printerprobleem 

De heer Rh. M. van Leeuwen uit Aker¬ 
sloot vraagt of er voor zijn Commodo¬ 
re MCS 801 een printerdriver is bij 
GEOS. Helaas is dit niet het geval. U 
zult zich moeten behelpen met de 


Commodore MPS 801 of Commodore 
Comp. driver. 

Bootdisk weg?? 

Dhr. L. Ruigrok uit Monster heeft, vol¬ 
gens zijn zeggen z’n bootdisk gefor¬ 
matteerd. In zo’n geval is het helaas, 
maar waar, dat u verder moet met de 
bijgeleverde Back-Up. De bootdisk is 
na een format-procedure niet meer te 
herstellen. 

Van A.J. van Donk uit Rotterdam ont¬ 
vingen wij 2 correcties op antwoorden 
uit het vorige nummer. In het ant¬ 
woord op de vraag van dhr Hammink 
uit Den Haag aangaande REU’s en 
hun compatibiliteit met GEOS werd 
vermeld, dat een 1764 uitbreidt naar 
128K. Dhr van Donk meldt dat dit niet 
128K maar 256K moet zijn. Hij raadt 
dhr Hammink ook aan om een REU 
1750 te zoeken, aangezien die meer 
mogelijkheden biedt (512K, ook emu¬ 
latie van een tweede diskdrive). De 
REU 1750 werkt overigens alleen met 
GEOS VI .3 en hoger, en heeft een ei¬ 
gen voeding nodig. De leveringspro- 
blemen voor deze twee REU’s zijn 
overigens nog niet opgelost, beide zijn 
zeer moeilijk te krijgen. A.J. van Donk 
wist ons ook op de fout te betrappen, 
dat wij in het antwoord op de vraag 
van Ton Krijnen uit Hoensbroek ver¬ 
meldden, dat de FONT-EDITOR in het 
DataBecker Boek "Het Grote GEOS 
Boek" staat. Dit moet echter zijn: 
"GEOS Tips en Trucs" (ook Data Be- 
cker). Dhr. van Donk heeft echter ook 
nieuws voor ons, hij waarschuwt dat 
de Desk Accessories EDMON en 
FONT-EDITOR alleen zullen werken 
voor GEOS 1.2. Dit is inderdaad waar, 
de Kernal is bijna geheel herschreven, 
en er zijn ook extra geheugengebie- 
den voor ingeruimd ($5000). Dit heeft 
inderdaad effect voor DA’s, en alle 
DA’s hebben in principe een update 
nodig. Naar wij weten heeft Data Be- 
cker daar overigens nog niet voor ge¬ 
zorgd. 
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GeoMail 

We kregen een brief van dhr. Lefever 
uit Poperinge (België) met de vraag 
waarom zijn GEOS versie 1.1 niet cor¬ 
rect werkt met zijn MPS1200 printer. 
Het antwoord is heel eenvoudig, om¬ 
dat de versie 1.1 uit een tijd stamt, dat 
GEOS nog vol met kinderziektes zat, 
waaronder veel printproblemen. Hier¬ 
voor is echter maar één oplossing en 
wel de volgende, gewoon de nieuws¬ 
te versie 2.0 kopen. U bent dan van 
alle problemen verlost. 

B. van Tilburg uit Amsterdam had ge¬ 
hoopt een aantal games die op de 
Quantumlink Game Disk staan, te 
kunnen gebruiken. Om dat te kunnen 
doen, moet echter de Program Disk 
worden opgestart. En dan loopt hij 
met de boodschap "waiting tor acces 
to Q-link" vast. Het is helaas namelijk 
niet mogelijk om in dit werelddeel ge¬ 
bruik te maken van het Quantumlink 
netwerk. Dhr van Tilburg vermeldt niet 
of hij in het bezit is van een MODEM, 
maar al zou hij die hebben, dan nog 
zou Q-link niet geRUNd kunnen wor¬ 
den. Zo zit dat helaas in Europa. 

Waslijst met vragen 

Joris Raats uit Kalmthout (België) 
stuur ons een complete waslijst met 
vragen en opmerkingen. Erg leuk 
maar, we kunnen zulke lange lijsten 
niet in zijn geheel behandelen. Zaken 
die voor andere lezers interessant zijn 
zullen we behandelen. Een veilig- 
heidskopie van een GEOS-diskette 
kunt u niet maken. De leverancier 
heeft zich hiermee bewapent tegen il¬ 
legale praktijken. Wanneer u een le¬ 
gale GEOS versie heeft wordt er altijd 
een backup diskette meegeleverd. 
Voorts vraagt u of het mogelijk is dat 
GeoFile en GeoCalc kunnen werken 
met een GEOS 128. Helaas kan dit 
niet, hiervoor zijn (in Amerika) aparte 
128 versies te koop. Op uw vraag 
waarom er geen GeoBasic is, kan ik 
alleen maar antwoorden, dat Berkeley 
Softw. er wel mee bezig is geweest, 
maar het niet op de markt heeft ge¬ 
bracht. Waarom is ons niet bekend. 

C. Baas uit Zwijndrecht vraagt hoe 
men met GEOS V2.0 twee diskdrives 
met hetzelfde devicenummer in wer¬ 
king kan krijgen. Dit dient te gebeuren 
door in het configure-programma voor 
Disk A en Disk B gewoon een 1541 in 
te vullen. Deze gegevens moeten dan 
geSAVEd worden. Werkt het dan nog 
niet, probeer dan dit: verander soft¬ 
warematig (zie handleiding diskdrive, 
of met de Power Cartridge opdracht 


"device") één van beide drives in num¬ 
mer 9. Start dan GEOS op die drive op 
(load"*",9,1). Wanneer dan het boven¬ 
staande procédé wordt gevolgd, moet 
het wel werken. 

Nederlandse handleidingen 

Sinds enige tijd is er een groep van 
enthousiaste GEOS-gebruikers actief 
om voorlichting te geven betreffende 
de gehele GEOS lijn. Dit betreft o.a. 
de verkoop van Nederlandse handlei¬ 
dingen en het geven van gebruikers- 
tips, tijdens bijeenkomsten en middels 
het blad GEOS Nieuwsbrief. Omdat 
veel GEOS gebruikers worstelen met 
de Engelse taal, zijn met name de Ne¬ 
derlandse handleidingen van GEOS 
een welkome oplossing. De navolgen¬ 
de handleidingen zijn momenteel al 
verkrijgbaar: GEOS 1.3, DeskPack 
Plus, Geodex, Writer’s Workshop, 
GeoFile, alsmede GEOS 128. En er 
wordt momenteel hard gewerkt aan 
de Nederlandse versie voor GEOS 
2.0. Daarnaast geeft het bedrijf de Pu¬ 
blic Domain diskette GEOS Utilities I 
uit. Inl: Computrans, postbus 52 
1300 AB Almere-haven. Bellen kan 
ook, alleen donderdagavond van 
19.00 tot 22.00: 03240-10041/18868. 

Dhr. Kok uit Den Haag vraagt ons 
waarom er bij het pakket GEOS 1.3 
(waarschijnlijk op de Info beurs ge¬ 
kocht) een 1.2 handleiding zit. Het 
gaat hier om een vereenvoudigde uit¬ 
voering van GEOS, die normaal is 
voorzien van een dikke Engelse hand¬ 
leiding. De handleiding die u echter 
heeft is in het Nederlands, maar ge¬ 
schreven op een 1.2 versie. Dit hoeft 
op zich geen probleem te zijn, want de 
karakteristieken van het programma 
zijn nagenoeg gelijk aan de 1.2 versie. 
De verschillen die tussen beide ver- 
sie’s bestaan hebben over het alge¬ 
meen betrekking op programmeer- 
technische aangelegenheden, zoals 
"bugs". U kunt gerust de 1.2 handlei¬ 
ding gebruiken bij de 1.3 programma- 
versie. Voor de vraag naar een 1.3 
handleiding verwijs ik u graag naar het 
volgende artikel in deze rubriek. 

Public Domain Disk 

De GEOS Info PD Disk van InfoList 
heeft voor enige vragen gezorgd. Het 
programma "showlader" laadt en runt 
een show van zeven beelden, die in 
losse (SEQ) files staan (showdataO 
tot showdataG). Showmaker is be¬ 
doeld om geRUNd te worden nadat 
een Geopaint scherm met de "geo-im- 
porter" in BASIC geïmporteerd is. 


Showmaker slaat dit scherm dan op in 
een SEQ-file (showdataN, naar het 
nummmer (N) wordt door "showma¬ 
ker" gevraagd), die dan weer door de 
"showlader" gebruikt kan worden. De 
show van de showlader bevat overi¬ 
gens ook al deze informatie en dient 
als een soort handleiding. Verder is 
van belang, dat de machinetaal-pro- 
gramma’s "monitor" en "quicktop" be¬ 
doeld zijn voor de GEOS versie’s 
VI .0, VI .2 of VI .3, maar niet voor de 
onlangs geïntroduceerde V2.0. Toen 
de PD disk gemaakt werd, was versie 
2.0 nog niet in Nederland, en was daar 
ook nog niets over bekend. Op de vol¬ 
gende PD disk zullen van beide pro¬ 
gramma’s V2.0-versies worden opge¬ 
nomen. Beide programma’s werken 
overigens wel (alleen niet geheel cor¬ 
rect) met V2.0. 

Onze oproep in één van de vorige 
nummers van Commodore Info om 
Public Domain Software op te sturen 
heeft wel enige respons opgeleverd, 
maar nog niet wat wij er van hadden 
verwacht. Vandaar wederom een op¬ 
roep aan u allen, om uw diskettebak 
eens kritisch door te neuzen en eens 
te kijken of u niet een Public Domain 
programma heeft staan, dat draait on¬ 
der het GEOS besturingssysteem. In¬ 
dien u hierover beschikt, of u heeft zelf 
een applicatie ontwikkeld, stuur deze 
dan op naar ons adres, dat staat ver¬ 
meld aan het einde van deze rubriek. 
De diskette die we in omloop gebracht 
hebben bevat nuttige programma’s 
van o.a. onze huisprogrammeur Peter 
Boncz, maar er kan nog meer bij. 

Tot zover deze keer de Info-rubriek. 
Volgende keer hopen we weer vol¬ 
doende nuttige hints en tips voor u bij 
elkaar gesprokkeld te hebben. Om de 
veelzijdige mogelijkheden van GEOS 
nog eens te onderstrepen heeft Peter 
Hughes een afdruk gemaakt met Geo- 
Paint van een Old Train. U begrijpt dat 
hier heel wat tekenuurtjes in zitten. 



Stuur uw reacties, vragen en ideeën 
naar: 

GEOS INFO rubriek 
Postbus 43048 
1009 ZA Amsterdam 
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Naar aanleiding van de introductie van de nieuwste versie van GEOS 2.0 zijn er bij 
sommige gebruikers enige problemen ontstaan. De oorzaak ligt vaak in het feit dat de 
meegeleverde handleiding in het Engels is geschreven of dat voornamelijk nieuwe ge¬ 
bruikers nog niet bekend genoeg zijn met dit revolutionaire besturingssysteem voor de 
Commodore 64. Daarom gaat het deze keer in een artikel over enige basisbegrippen 
van GEOS 2.0 


Een speurtocht in de wereld 
van GEOS 2.0 

I n een aantal artikelen is al meerdere malen de eenvoud waarmee de GEOS 
user-interface te gebruiken is aan de orde geweest. Maar de veelzijdigheid 
van dit pakket, die van uw C64 een volwaardige machine maakt, is voor me¬ 
nigeen nog wel eens een beetje te veel van het goede. 


file icon 



disk 

drive 

icons 


figuur I. De Desktop 


Het principe van een 
user-interface 

GEOS is een vervangend besturings¬ 
systeem voor uw Commodore 64. Het 
standaard besturingssysteem van uw 
C64 is normaliter niet erg uitgebreid. 
Vandaar dat men al jaren bezig is om 
allerlei Utilities te ontwikkelen, die dit 
gemis proberen te elimineren. Zo ook 
de software-ontwikkelaar Berkeley 
Softworks uit California, die een pro¬ 
fessionele interface heeft gemaakt. 
Het gehele principe berust op het sys¬ 
teem dat al jaren wordt toegepast op 
de Apple Macintosh. Vandaar dat er 
ook veel gelijkenis met de applicaties 
van de Macintosh zijn. De Kernal van 
de C64 wordt bij het opstarten, wat in 
vaktaal "booten" wordt genoemd, ver¬ 
vangen door de GEOS-Kernal. Deze 
GEOS-Kernal maakt de besturing niet 
alleen sneller maar ook veel gemak¬ 
kelijker. Het geven van opdrachten 
aan het systeem gebeurt simpelweg 
door met de muis of joystick een func¬ 
tie "aan te klikken". De DiskTurbo 
zorgt dan voor snelle afhandeling van 
de gewenste opdracht. De opslag van 
gegevens op diskettes wordt even¬ 
eens iets anders geregeld dan norma¬ 
liter het geval is. Diskettes dienen 
hiertoe aan het GEOS-formaat aan¬ 
gepast te worden, hetgeen geheel au¬ 
tomatisch wordt geregeld op het mo¬ 
ment dat u een diskette met GEOS 
formatteert. Tevens maakt GEOS ge¬ 
bruik van de processor die zich in de 
diskdrive bevindt. Daarom mag u 
nooit de drive uitschakelen, wanneer 
u met GEOS bezig bent. 


De DeskTop 

Wanneer u G EOS heeft opgestart ver¬ 
schijnt in plaats van het bekende blau¬ 
we scherm, een grijs scherm met bo¬ 
venin een balk met allerlei teksten, dit 
heet de menubalk. Verder zien we 
een rechthoek met allemaal afbeel¬ 
dingen, die "iconen" worden ge¬ 
noemd. Deze iconen vertegenwoordi¬ 
gen programma’s of files. Onderin het 
beeld en aan de zijkant, bevinden zich 
de iconen van enkele besturingsappli- 
caties, terwijl rechtsonderin een prul¬ 
lenmand wordt weergegeven, zie 
fig.1. 

Starten met GEOS 

Wat heeft u nodig om met GEOS aan 
de slag te kunnen. Ten eerste uiter¬ 
aard uw Commodore 64/128, een mo¬ 
nitor of TV, een invoerapparaat, zoals 
bv. een muis of joystick. Verder heeft 


u een diskdrive, type 1541, 1571 of 
1581 (1570 levert soms wel eens pro¬ 
blemen op), het GEOS 2.0 pakket en 
enkele blanco 5,25 inch diskettes. 
Verder zijn als opties mogelijk een 
REU (Ram Expansie Unit), een extra 
diskdrive en een GEOS ondersteunde 
printer. Wat betreft de printer-drivers 
(zoals deze iconen worden genoemd) 
geeft de handleiding een zeer uitge¬ 
breid overzicht van de verschillende 
printers, die probleemloos werken 
met GEOS. Let wel, dat uw configura¬ 
tie, samenstelling van computerappa¬ 
ratuur, overeenstemt met de beschre¬ 
ven opsomming in de handleiding. 

Installatie van het pakket 

Het installeren van GEOS betekent 
niets anders dan het gereed maken 
van de verschillende applicaties voor 
dagelijks gebruik. Het installeren kan 
slechts één keer plaats vinden. Dus 
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let hierbij goed op. Zeker wanneer u al 
eerder gebruikte applicaties wilt ge¬ 
bruiken bij deze "upgrade". Het instal- 
latieproces neemt zo’n 15 minuten in 
beslag. Eerst opent u GEOS door de 
opdracht LOAD"GEOS",8,1 in te ty¬ 
pen, gevolgd door RETURN. Er ver¬ 
schijnen dan enige mededelingen en 
tenslotte wordt de DeskTop zichtbaar 
op het scherm. Vanaf dat moment 
volgt u de instructies op het scherm. 
Hierbij heeft u uw Back-Up diskette 
nodig en eventueel een originele eer¬ 
der gebruikte applicatie (zoals bv. 
GeoCalc, GeoPublish). Tijdens dit in- 
stallatieproces wordt een identificatie¬ 
nummer gegenereerd. Dit nummer 
wordt ergens op een moeilijk bereik¬ 
bare plaats weggeschreven op disket¬ 
te en heeft als hoofddoel, het voorko¬ 
men van illegale kopieerpraktijken. 
Op het moment dat GEOS met de 
melding komt of u uw pakket met het¬ 
zelfde serienummer wilt "inlocken", 
dient u één van de eerder gebruikte 
applicaties in de drive te plaatsen, 
wanneer daarom gevraagd wordt. 
Denk erom, dat u hiervoor wel over de 
ORIGINELE applicatie-diskette dient 
te beschikken. Na het installeren dient 
u uw printer en invoer apparaat te ini¬ 
tiëren. Dit doet u door, wanneer u zich 
op de DeskTop bevindt, op de l-toets 
te drukken, terwijl u de Commodore- 
toets ingedrukt houdt. Vervolgens ver¬ 
schijnt een keuzevenster op het 
scherm. Met behulp van de cursor- 
toetsen kunt u dan het aanwijspijltje 
naar het invoerapparaat van uw keu¬ 
ze bewegen. Druk vervolgens op de 
RETURN-toets en breng het pijltje 
naar het OK-icoon. Druk hier weer op 
RETURN. Om de printer te installeren 
kiest u uit de menubalk bovenin het 


scherm, het "pull-down" menu onder 
GEOS. Klik dan vervolgens de keuze 
"select printer". Een ander keuzeven¬ 
ster verschijnt met de mogelijke prin- 
ter-opties, zie fig. 2 

Klik de printer, die u gebruikt aan en 
vervolgens op OK. Staat uw printer 
niet bij de opties, kies dan een Com- 
modore-compatibele driver. Hierna 
dient u nog enkele applicaties te in¬ 
stalleren. Dit is een vrij eenvoudig pro¬ 
ces. U klikt simpelweg het icoon van 
de applicatie tweemaal aan, waarna 
GEOS de installatie verder regelt en 
op het scherm meldt wanneer dit ge¬ 
reed is. De applicaties die u moet in¬ 
stalleren zijn GeoWrite 2.1, GeoMer- 
ge, GeoSpell. 

Het gebruik van werkdisks 

U moet voorkomen dat uw originele 
diskettes beschadigd worden, van¬ 
daar dat u het gebruik hiervan zoveel 
mogelijk moeten vermijden. Wat niet 
te vermijden is is het gebruik van de 
zgn. "boot diskette", die u gebruikt bij 
het opstarten van GEOS. Maar is dit 
eenmaal achter de rug, dan kunt u 
deze diskette weer opbergen. Om 
werkdiskettes te maken, dient u enke¬ 
le geformatteerde diskettes bij de 
hand te hebben. Het beste is om voor 
elke applicatie een aparte diskette 
aan te maken, bv. GeoWrite, Geo- 
Paint enz. U dient ook aparte werkdis¬ 
kettes te maken van uw applicaties, 
zoals GeoFile, GeoCalc en GeoPu¬ 
blish. Wanneer u met twee diskdrives 
werkt kunt u volstaan met een applica- 
tiedisk en een datadisk. Hierdoor be¬ 
spaart u ruimte op de werkdiskettes. 
Met name de GeoPaint-files nemen 


figuur 2. en 3. 


veel ruimte op de diskette in beslag. 
Zeker wanneer u nog enkele hulppro¬ 
gramma’s hierbij gebruikt, zoals Pho- 
to-Manager, Calculator, Note-pad, 
etc. 



Hoe gaat het maken van een werkdisk 
in z’n werk? Eerst beschrijf ik de me¬ 
thode met één diskdrive. U klikt een 
file, dat u wilt kopiëren aan en ver¬ 
plaatst deze naar de border van de 
DeskTop; dit is de rand buiten het 
window. Dit doet u zo met alle files. 
Daarna haalt u de diskette waar deze 
files op staan uit de drive en plaatst de 
diskette, die als werkdisk moet func¬ 
tioneren in de drive. Open de diskette 
door op het drive-icoon te klikken. 
Vervolgens verplaatst u, d.m.v. het 
aanklikken van de files in de border, 
terug in de DeskTop window. GEOS 
vraagt nu zelf om de originele diskette 
in de drive terug te plaatsen. Nadat u 
dit heeft gedaan, klikt u op "OK" en het 
kopiëren begint. Afhankelijk van de 
grootte van de te kopiëren file zal af en 
toe van diskette gewisseld moeten 
worden. Op deze wijze worden alle fi¬ 
les vanuit de border gekopieerd naar 
de nieuwe werkdiskette. Wanneer u 
met twee drives werkt wordt het al iets 
eenvoudiger. U plaatst de te kopiëren 
diskette in de ene drive en de te ma¬ 
ken werkdisk in de andere drive. U 
opent de originele diskette en klikt, 
terwijl u de Commodore-toets inge¬ 
drukt houdt, de te kopiëren files aan. 
Deze veranderen nu van kleur. Nadat 
u alle files heeft aangeklikt, klikt u op 
één van deze files en brengt het zgn. 
"Multifile copy" icoon naar het icoon 
van de werkdisk, zie fig. 3. 

Nu zullen automatisch alle aangewe¬ 
zen files worden gecopieerd naar de 
werkdisk. Op deze wijze maakt u ver¬ 
schillende werkdiskettes. Welke files 
moeten er nu minimaal op een disket¬ 
te staan, zodat u er mee kunt werken, 
zonder steeds een originele disk te 
moeten raadplegen? Voor een Geo- 
Write-diskette heeft u de volgende fi- 
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GeoWrite 2.1, een correcte printerdri- 
ver, een aantal letterfonts (afhankelijk 
van uw keuze), evt. de text-manager 
en een aantal ander desk-accessoi- 
res. Voor een GeoPaint-diskette heeft 
u nodig, DeskTop 2.0, GeoPaint, een 
correcte printerdriver, een aantal let¬ 
terfonts, evt. de photo-manager en 
een aantal andere deskaccessoi- 
res. Geef een werkdisk altijd een 
unieke naam, zodat later bij eventu¬ 
ele back-ups geen problemen kun¬ 
nen ontstaan. Een naam voor een 
GeoWrite werkdisk zou kunnen zijn, 
GeoWrite-1, GeoWrite-2, etc. Een 
back-up diskette kunt u maken met 
behulp van het diskcopy-program- 
ma. Deze copieert een gehele dis¬ 
kette, met uitzondering van de origi¬ 
nele bootdisk. 

Enkele mogelijkheden en 
hoe ze werken 

Wanneer u GEOS heeft opgestart 
verschijnt er een pijltje op het 
scherm. Dit pijltje kan worden ver¬ 
plaatst met behulp van de joystick of 
Commodore 1351-muis. De 1351- 
muis werkt als invoer-apparaat an¬ 
ders als de joystick. Hij is veel snel¬ 
ler, terwijl voor het tekenwerk in 
GeoPaint de joystick weer betere 
resultaten geeft. Met behulp van het 
pijltje kunt u bepaalde opdrachten ge¬ 
ven of een applicatie starten. Het pijl¬ 
tje wordt gebruikt om een item te se¬ 
lecteren of om de tekstcursor te ver¬ 
plaatsen. Om een functie te activeren 
plaatst u het pijltje op het betreffende 
icoon en klikt deze aan. Het icoon zal 
dan veranderen in een negatief beeld. 
Vervolgens voert u de gewenste op¬ 
dracht met dit file uit. U kunt ook in één 
keer de gewenste opdracht laten uit¬ 


voeren. Hiertoe plaatst u wederom het 
pijltje op de te bewerken icoon en klikt 
dan tweemaal snel achter elkaar op 
de muis- of vuurknop. Dit wordt dub¬ 
belklikken genoemd. Op deze ma¬ 
nier kunt u door simpel aan te wijzen 
en te klikken allerlei ingewikkelde op- 
dracht-formules achterwege laten. De 
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menu’s GEOS zijn precies wat ze 
veronderstellen. Een opsomming van 
opdrachten, desk-accessoires of let¬ 
terfonts. U selecteert een menu-item 
door het pijltje op uw keuze te plaat¬ 
sen en vervolgens te klikken. Of u ge¬ 
bruikt een zgn. shortcut, dit betekent 
dat u naast de ingedrukte Commodo- 
re-toets een andere lettertoets in¬ 
drukt, teneinde een functie te active¬ 
ren. Een overzicht van de zgn. toet¬ 
senbord shortcuts treft u aan in fig. 4. 


Bestanden binnen GEOS 

Wanneer u GEOS heeft "gebooted", 
verschijnt als eerste de DeskTop. De 
DeskTop wordt gebruikt om met files 
en diskettes te manipuleren, welke 
worden gepresenteerd als iconen of 
tekst. De DeskTop biedt mogelijkhe¬ 
den, zoals het openen, copiëren en 
wijzigen van namen van files, die in 
de DeskTop voorkomen. GEOS 
maakt onderscheid in verschillen¬ 
de files. Zo bestaan ersystemfiles 
welke noodzakelijk zijn voor het 
GEOS operating system. Dit zijn 
onder meer GEOS Kernal, 
DeskTop 2.0 en GEOS Boot. Ver¬ 
der zijn er Interface driver files, die 
de nodige hardware-onderdelen 
correct laten functioneren, zoals in- 
putdrivers en printerdrivers. Voorts 
kent GEOS applicaties. Dit zijn pro¬ 
gramma’s die werken onder het 
GEOS besturingssysteem. We 
kennen in dit verband oa. GeoWri¬ 
te, GeoPaint, GeoSpell, GeoMer- 
ge, Text Grabber, GeoCalc etc. Bij 
deze programma’s behoren data- 
files, dit zijn bestanden die zijn ver¬ 
vaardigd wanneer een applicatie 
wordt gebruikt. De Desk-accessoi¬ 
res zijn kleine utility programma’s, 
die binnen een applicatie of in de 
DeskTop gebruikt kunnen worden. 
Enkele van deze Desk-accessoires 
zijn Calculator, NotePad, Calendar, 
etc. Naast al deze gebruikelijke files 
kent GEOS nog een drietal ander fi¬ 
les, te weten Assembler en Basic files 
en Non-GEOS files. Het is goed, wan¬ 
neer u met GEOS werkt, dat u deze 
verschillende soorten files uit elkaar 
weet te houden. Sommige van de files 
zijn ook niet te openen, omdat ze puur 
een besturingsfunctie hebben. 

Tot slot 

Wat betreft de bespreking van enkele 
punten van het GEOS besturingssys¬ 
teem zijn wellicht voor een groot aan¬ 
tal gebruikers weer een aantal zaken 
wat duidelijker geworden. Alhoewel 
het werken met GEOS, en zeker voor 
wat betreft de 2.0 versie, altijd geldt, 
dat u eerst goed moet lezen voor u 
een handeling gaat verrichten. Vooral 
als u niet geheel bekend bent met 
deze slimme user-interface, kan het 
meerdere malen doorlezen van de 
handleiding geen kwaad. Veel succes 
bij het werken met GEOS! 

Bert Venema 


OTHER KEYBOARD SHORTCUTS: 

Dfive ManipulQtioQ: 

C= ft (ind C= B to open drives A and B. 

C= Shift ft and C= Shift B to siuap drive luith drive C. 
Pilo S<>lwtinn ficon ModeT : 

C= t through C= 8 to select page files. 

C= Shift 1 throuqh C= Shift 8 to select border files. 
Multinig Filg Onefotions flcon ModeT: 

RUHy'SIOP to abort operolions. 

C= £ to view the first file in the queue. 

Movement thiough the Pud-flcon Modet : 

V and (CRSR keq) to page forwards and bockwards. 

1 throuqh 9 to qo to pages 1 to 9. 

8 to qo to pqqe 16. 

Shift 1 throuqh Shift S to go to pages 11 to 18. 


Beft denema 


figuur 1. De Desktop 
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GEOS 


Na een korte winterstop is de cursus GEOS-machinetaalprogrammeren weer terug. 
Dit artikel is de eerste van drie gewijd aan printers; het aansturen van printers uit ap¬ 
plicaties, het maken van printerdrivers, en het oplossen van veelvoorkomende printer¬ 
problemen. Deze keer behandelt Peter Boncz het eerstgenoemde onderdeel, te we¬ 
ten het aansturen van printers uit programma’s. De bijgeplaatste listing vormt samen 
met de listing van volgende maand een tweedelig hardcopy-programma. 

GEOS Machinetaal-cursus (4) 

Printers in GEOS 


E r is tegenwoordig zo’n grote verscheidenheid aan printers op de markt, 
dat meerdere boeken kunnen worden volgeschreven over hun werking. 
Dat is dan ook gebeurd. Het is natuurlijk ónmogelijk om een applicatie reke¬ 
ning te laten houden met honderden verschillende printers. Daarom is er 
een programmaatje tussen de applicatie en de printer geplaatst: een printer- 
driver. 


Maar hoe werkt dat nu precies? De 
applicatie communiceert door middel 
van standaard-routines, die In elke 
printerdriver zitten, met de printer. 
Hoe die standaardroutines uitgevoerd 
worden is per printerdriver verschil¬ 
lend. Het grote voordeel Is dus, dat de 
applicatie altijd dezelfde taal spreekt, 
en helemaal niets specifieks hoeft te 
weten over de aangesloten printer. 

Buffers 

Printerdrivers staan altijd in het ge¬ 
heugen op $7900 (PRINTBASE), en 
ze hebben de ruimte tot $7f3f. Boven¬ 
dien moet de applicatie ruimte maken 
voor twee geheugenbuffers van 640 
bytes. De ene wordt gebruikt door de 
applicatie, om 80 blokjes van 8x8 (die 
geprint moeten worden) in te plaat¬ 
sen. De andere wordt gebruikt door de 
printerdriver. In de GEOS-regIsters rO 
($0002/$0003) en r1 ($0004/$0005) 
dienen de beginadressen van deze 
buffers te staan. 

Routines 

Iedere printerdriver bestaat dus uit 
een aantal routines, en wel acht: Get- 
Dimensions, InItForPrInt, StartPrint, 
PrintBuffer, StopPrint, StartASCII, 
PrintASCII en SetNLQ. Deze routines 
beginnen in ieder printerdriver op de¬ 
zelfde plaats (zie schema 1). Wat er 
verder gebeurt, interesseert ons deze 
aflevering nog niets. Het enige wat 
van belang is voor de applicatie-pro- 
grammeur, is hetgeen al deze routi¬ 
nes nu doen. 


GetDimensions 

Als er een jsr Getdimenslons ($790c) 
gedaan wordt, dan retourneert deze 
routine in y het aantal blokjes -van 
8x8- op een pagina (in vertikale rich¬ 
ting). In X staat het aantal blokjes in 
horizontale richting. Dit is normaliter 
80, maar sommige printers, zoals de 
MPS 803 en de Brother HR5, hebben 
er maar zestig. Een nette applicatie 
moet hier rekening mee houden! Geo- 
paint bijvoorbeeld heeft met dit pro¬ 
bleem te maken: bij de eerderge¬ 
noemde printers valt altijd een stuk 
aan de rechterkant weg. 

InitForPrint 

Deze routine ($7900) hoeft maar een¬ 
maal te worden aangeroepen, name¬ 


lijk aan het begin van het printen. Init¬ 
ForPrint initialiseert de printer. In x 
worden mogelijke fouten doorgege¬ 
ven. Als X nul is, dan waren er geen 
fouten. 

StartPrint 

Roep StartPrint ($7003) eenmaal per 
pagina aan. Voor foutmeldingen geldt 
hetzelfde als bij InitForPrint. 

PrintBuffer 

Voor het gebruik moeten In een 640- 
bytes grote buffer de te printen 80 
blokjes gezet worden. Deze buffer is 
op de C-64 manier indeeld: eerst de 
acht bytes (de bovenste byte eerst) 
van het meest links blokje, daarna de 
acht bytes van het blokje rechts ervan. 


naam routine 

adres 

PRIWTER-ROÜTINES 
variabelen in 

variabelen uit 

GetDimensions 

$790c 

geen. 

x-breedte, y-hoogte (in 

InitForPrint 

$7900 

geen. 

blokjes) van printervel. 
x-errors (x=0-geen fout) 

StartPrint 

$7903 

geen. 

x-errors (x=0-geen fout) 

PrintBuffer 

$7906 

2 640 bytes buffers, 

geen. 

StopPrint 

$7909 

adres eerste in rO, 
hierin 80 blokjes 

HIRES. Adres 2e in rl 
geen. 

x-errors (x=0-geen fout) 

StartASCII 

$7912 

geen. 

x-errors (x=0-geen fout) 

PrintASCII 

$790f 

2 buffers, 640 bytes. 

geen. 

SetNLQ 

$7915 

Pointers naar beide in 
rO en rl. In de eerste 

1 regel ASCII karakters 
geen. 

x-errors (x=0-geen fout) 


Schema 1: Printer routines in GEOS 
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etc. En 80 blokjes van 8 bytes geeft in¬ 
derdaad totaal een buffer van 640. 
Naar het beginadres van deze buffer 
wordt gepoint door rO. GEOS-register 
1 (r1) wijst naar de buffer, die bestemd 
is voor de printerdriver. Als deze twee 
pointers gezet zijn, dan kan er naar 
PrintBuffer ($7906) gesprongen wor¬ 
den. Deze routine print een horizonta¬ 
le rij van 80 blokjes (van 8x8). 

StopPrint 

Het papier wordt uit de printer ge¬ 
draaid. Het output-kanaal wordt bo¬ 
vendien gesloten. StopPrint = $7909. 

StartASCII 

Deze en de volgende routines zijn be¬ 
doeld voor het niet-grafische printen. 
Geowrite 2.0 maakt daarvan bijv. ge¬ 
bruik. Het niet-grafisch printen werkt 
met de gewone karakterset van de 
printer. Vaak zal deze wijze van prin¬ 
ten veel sneller zijn. De optie in Ge¬ 
owrite 2.0 om in deze modus te prin¬ 
ten, heet dan ook ‘draft’. StartASCII 
($7912) moet, net als StartPrint, een¬ 
maal per pagina worden aangeroe¬ 
pen. In X staan eventuele fouten, x is 
nul als er geen fouten zijn. 

PrintASCII 

Net als bij PrintBuffer moeten bij het 
gebruik van PrintASCII ($790f) rO en 
r1 naar de twee bekende buffers wij¬ 
zen. PrintASCII print een regel ASCII 
karakters. 

SetNLQ 

De functie hiervan spreekt voor zich: 
jsr SetNLQ ($7915) zorgt ervoor dat 
de NLQ mode van een printer aange¬ 
zet wordt. Dit werkt bij de meeste prin¬ 
ters uitsluitend in de niet-grafische 
modus. 

Grafisch printen 

In bijna alle gevallen maakt GEOS ge¬ 
bruik van het grafische printen. Dit is 
bijvoorbeeld de reden waarom GEOS 
van zoveel fonts (lettertypes) gebruik 
kan maken. Men volge dit recept: 

• A roep GetDimensions aan. Als 
blijkt dat de printer minder dan 
640 puntjes in de breedte kan 
printen, kan het in sommige geval¬ 
len nuttig zijn hiervan melding te 
maken aan de gebruiker, of mis¬ 
schien wel de hele zaak af te bla¬ 
zen. 

vervolgens een jsr InitForPrint. Is 
er een fout? Zo ja, dan naar (D). 


Listing 1: hardcopyLst 


; 

hardcopyLst 


.inclixJe geosSynt 

1 

•include geosMac 

/ 

•ramsect 


; Leeg, want er zijn geen 



; variabelen in gebruik. 

.psect 


; Begin programma. 

InitRoutine: 



Idy 

^$00 

; Zet variabelen 

Idx 

?^$20 

; voor DESK ACC. 

sty 

$9ffe 

1 

stx 

$9fff 

/ 

lus; 


; Verplaats een stukje 


Ida transferstuk,y 

; machinetaal. 


sta $8900,y 

t 


iny 

t 


cpy 7^64 

/ 

bne 

lus 


LoadB 

$c2c8,7^$4c 

; Omlegging in de 

lioadW 

$c2c9,$8900 

; MainLoop. 

Idx 

7^$3e 

; Beëindig de DESK 

Idy 

7^$c2 

; ACC door inpliciet 

stx 

$849b 

; RstrApplic ($c23e) 

sty 

$849c 

; aan te roepen. 

rts 



; VOOR GEXDS VI 

.0, VI.2, VI.3 


transferstuk: 


; Alles vanaf hier 



; wordt verplaatst. 

Ida 

$8504 

; Lees karakter. 

cmp 

?^$08 

; ?^$08 = CTRL-H 

beq 

toets ingedrukt 

7 

jsr 

$e28f 

; Simuleer het vervang- 

jmp 

$c2cb 

; en stukje MainLoop. 

toets ingedrukt; 

7 

LoadB 

$c2c8,7^$20 

; Herstel de MainLoop. 

LoadW 

$c2c9,$e28f 


Ida 

i^$00 

/ 

sta 

$8504 

; Leeg KeyboardBuffer. 

sta 

$02 

; Laden van .prog: 

loadW 

r6,$8900+49 

; Point naar filenaam. 

jsr 

GetFile 

; GetFile = $c208. 

jmp 

MairiLoc^ 

; MainLoop = $clc3. 

filenaam: 


; 

.byte 

"hardcopy.prg" 

/ 

Endfldress: 



; VOOR GEXDS V2 

.0 


transferstuk: 


; Alles vanaf hier 



; wordt verplaatst. 

Ida 

$8504 

; Lees karakter. 

cnp 

?^$08 

; 7^$08 = CTRL-H 

beq 

toets ingedrukt 

f 

jsr 

$fa56 

; Simuleer het vervang- 

jmp 

$c0e2 

; en stukje MainLoop. 

toets ingedrukt: 

7 

LoadB 

$c2c8,7^$20 

; Herstel de MainLoop. 

LoadW 

$c2c9,$fa56 


Ida 

ii$0Ü 

r 

sta 

$8504 

; Leeg KeyboardBuffer. 

sta 

$02 

; Laden van .prog: 

LoadW 

r6,$8900+49 

; Point naar filenaam. 

jsr 

GetFile 

; GetFile = $c208. 

jmp 

MairiLocp 

; Ma.inLoop = $clc3. 

filenaam: 


• 

• byte 

"hardcopy.prg" 


EndAdress: 


' 
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Listing 2: hardcopyHdr 


.include 
.psect 
.word 
•tyte 
.byte 
.tyte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
•byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 
.byte 


geosSyra 

0 

3 

21 

(63+$80) 


hardcopytkir 


Ook voor de header nodig. 
Begin van de header. 
Eerste 2 bytes altijd 0. 
Afmetingen Icon; 3 bytes 
breed, 21 puntjes hoog. 
63 bytes icondata. 


% 10000000 ,% 00000000,%00000001 
% 10000000 ,% 00000000,%00000001 
% 10000000 ,% 00000000,%00000001 
% 10000000 ,% 00000000,%00000001 
% 10000000 ,% 00000000,%00000001 
% 10000000 ,% 00000000,%00000001 
% 10000000 ,% 00000000,%00000001 
% 10000000 ,% 00000000,%00000001 
% 10000000 ,% 00000000,%00000001 
% 10000000 ,% 00000000,%00000001 
% 10000000 ,% 00000000,%00000001 
% 10000000 ,% 00000000,%00000001 
% 10000000 ,% 00000000,%00000001 
% 10000000 ,% 00000000,%00000001 
% 10000000 ,% 00000000,%00000001 
% 10000000 ,% 00000000,%00000001 
% 10000000 ,% 00000000,%00000001 
% 10000000 ,% 00000000,%00000001 
% 10000000 ,% 00000000,%00000001 

dit was de icondata, 63 bytes. In Bitvorm weergegeven (voor 
de duidelijkheid. Nu is het icon helemaal leeg, op een kader 
na. Het Icon kan naar believen veranderd worden. 


•byte 

.byte 

.byte 

.word 

.word 

.word 

.byte 

.byte 

.byte 

.byte 

.byte 

.byte 

.byte 

.byte 

.byte 


$83 

i:®SK_ACC 

SEQOEWTIAL 

InitRoutine 

EndAdress 

InitRoutine 


Geos File Type USR. 
DESK_ACC = 5. 
SEQUENTIAL = 0. 
laadadres. 
eindadres. 
startadres. 


"Hardcopy VI.2",0,0,0,0,0,0,ü 
"Peter Boncz",0,0,0,0,0,0,0,0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
"Dit programma verandert" 

"de MainLoop zodat CTRL-H" 

"hardcopy.prg start." ; infotekst. 

0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 
0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 


d.m.v. een Desk Acessory (DA), twee 
programma’s tegelijk te laten draaien. 


ken van CTRL-H het eigenlijke pro¬ 
gramma "hardcopy.prg" gestart 


• B Roep StartPrint aan, bij het be¬ 
gin van elke pagina. Bij fouten (x 
niet 0) naar (D). 

• C Geef rO en r1 de juiste waarden, 
en vul de buffer (van rO) met de te 
printen blokjes van 8x8. Doe dan 
een jsr PrintBuffer. Spring naar 
(C) tot een pagina vol is. 

de pagina is vol, dus roep Stop- 
Print aan. 

spring naar (B) tot alle pagina’s 
geprint zijn. 

• D einde. 

ASCII printen 

Zoals gezegd, deze mogelijkheid zal 
maar weinig voorkomen, maar voor 
de volledigheid geef ik bij deze het 
procédé: 

• A een jsr InitForPrint. 

roep SetNLQ aan als NLQ ge¬ 
wenst is. 

• B spring naar StartASCII bij het 
begin van een pagina. 

• C per regel een jsr PrintASCII. 
Van tevoren rO en r1 zetten en de 
buffer van rO vullen. 

naar (C) tot het einde van de pagi¬ 
na. 

naar (B) tot ook de laatste pagina 
geprint is. 

• D einde. 

Hardcopy 

Met de bovenstaande kennis, zal nu 
ook wat gedaan worden. Want het is 
gewoonte in deze serie dat de theorie 
gepaard gaat met een praktisch voor¬ 
beeld. In het geval van printers zal dit 
voorbeeld bestaan uit een hardcopy- 
programma. Dit is een programma 
waarmee uitdraaien van het scherm 
kunnen worden gemaakt, bijvoor¬ 
beeld terwijl GeoWrite draait. Zo’n 
hardcopy-programma bestaat nood¬ 
zakelijkerwijs uit twee delen: een pro¬ 
gramma dat de Mainloop zo veran¬ 
dert, dat, wanneer een bepaalde toets 
wordt ingedrukt, het eigenlijke hardco¬ 
py-programma start. Het veranderen 
van de Mainloop is noodzakelijk, om¬ 
dat er anders geen mogelijkheid is, 
om op ieder gewenst moment het 
hardcopy-programma te starten. 

Desk Accessories 

GEOS is geen echt multitasking sys¬ 
teem, maar de ontwerpers bij Berke- 
ley Softworks hebben de deur hier¬ 
naar wel op een kier laten staan. Het 
is daarom in GEOS mogelijk, om 


Meer dan twee is met mogelijk. De 
truc is dan ook, dat er in feite maar één 
programma draait. Het stuk geheugen 
waar de DA (bijv. de rekenmachine) 
komt te staan, wordt door GEOS in 
een zogenaamd ‘swap file’ op disk 
weggeschreven. Vervolgens wordt 
daar de Desk Accessory geladen. 
Verlaat men de DA, dan wordt het 
overschreven geheugen weer uit de 
swap-file teruggehaald, en de swap- 
file zelf wordt gewist. Dan is alles weer 
bij het oude, en gaat GEOS weer met 
de oorspronkelijke applicatie verder. 
Het eerste deel (deze maand geLIST) 
van ons hardcopy-programma is een 
DA. Immers, dit programa verandert 
alleen Mainloop (zodat bij het indruk- 


wordt). Nadat het programma zijn ver¬ 
anderingen heeft aangebracht, moet 
de oorspronkelijke applicatie weer 
verdergaan. Het eigenlijke hardcopy- 
programma is een gewone applicatie. 
Deze listing zal bij de volgende afleve¬ 
ring geplaatst worden. 

Geheugenruimte 

Het grootste probleem komt nu. Want 
er moet dus een stukje aan de Main¬ 
loop vastgemaakt worden. Dit stukje 
kijkt of CTRL-H ingedrukt is, en start 
het programma "hardcopy.prg" als dit 
zo is. Maar waar moet dat staan, want 
het GEOS-geheugen is al zo afgela¬ 
den? Na veel wikken en wegen heb ik 
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Listing 3; hardcopy.ink 


f 

hardcopy.ink 


.output 

hardcopy 

; naam voor de outputfile. 

.header 

hardcopyHdr.rel 

; naam van de file met 
; de header. 

.seq 


; dit is een sequentiele 



; applicatie. 

•psect 

$6001 

; begin programmacode: $6001 

.ramsect 

$6000 

; begin variabelen: $6000 

hardccpyLst.rel 

; naam van de file met de zg 



; 'relocatable' machinekode 


besloten om het achterste deel van de 
disk-buffer te gebruiken ($8900- 
$8940). Deze achterhoek in het C-64 
geheugen wordt bij mijn weten onge¬ 
moeid gelaten door de meeste appli¬ 
caties. Het kan echter zijn dat bepaal¬ 
de applicaties wel dat stukje geheu¬ 
gen gebruiken, en dan kan de zaak in 
de soep lopen. Er kunnen echter ook 
kleinere problemen ontstaan. Het is 
vaak een kwestie van uitvissen hoe 
het het beste werkt. Bij Geopaint en 
Geowrite kunt U bijvoorbeeld "hardco- 
py" beter al in de Desktop starten, in 
plaats van tijdens de programmaloop. 

GeoProgrammer 

Het complete-hardcopy programma 
bestaat dus uit tweedelen: "hardcopy" 
en "hardcopy.prg". Deze keer krijgt U 
"hardcopy", "harcopy.prg" komt de 
volgende keer. De DA "hardcopy" in¬ 
stalleert de in de vorige alinea bespro¬ 
ken appendix aan de Mainloop. De lis- 
ting bestaat uit drie delen, speciaal 
bestemd voor de mensen die met de 
GeoProgrammer werken. De delen 
"hardcopyLst" en "hardcopyHdr" moe¬ 
ten door de GeoAssembler gehaald 
worden, en het deel "hardcopy.ink" 
linkt beide via de GeoLinker aan el¬ 
kaar. Bij de hardcopyLst moet maar 
een deel van de tekst ingetikt worden, 
al naar gelang welke versie van 
GEOS men bezit. 


Gewone Assemblers 

Mensen zonder GeoProgrammer die¬ 
nen op de gebruikelijke wijze de 
GEOS macro’s zoals "LoadW" en "Lo- 
adB" te vertalen. Begin te assemble¬ 
ren bij ".psect" op bijvoorbeeld adres 
8192 ($2000). Kijk natuurlijk ook al¬ 
leen naar het gedeelte van de listing 
dat van Uw gading is. Als U klaar bent, 
dan laadt u het programma "GEOS 
PROGRAM-MAKER" Hierin dient U 
twee veranderingen aan te brengen 
en wel: 

1260 print#5,chr$(128);chr$(5);chr$(0); 
1530 print#15,"b- p:";5;21+a*32;:prin 
t#5,chr$(t);chr$(s);chr$(0);chr$(5); 
Dit moet omdat "hardcopy" een Desk 
Accessory is, en geen applicatie. Vul 
bij de adressen het volgende in: 
BEGINADRES NU? 8192 
EINDADRES NU? 8440 
LAADADRES?8192 


STARTADRES?8192 

Let er wel op dat de tekst "hardco¬ 
py.prg" die aan het einde voorkomt in 
hoofdletters wordt gezet. Deze tekst 
wordt dan: 

$68,$61,$72,$64,$63,$6f,$70,$79,$2e,$70 
,$72,$67,$00 

Test 

De werking van dit schoons kunt U als 
volgt testen. Wanneer dit programma 
in GEOS opgestart wordt, dan zal het 
buitenscherm wit worden. Als U ver¬ 
volgens op CTRL-H drukt, dan zult U 
merken dat de diskdrive gaat lopen. 
De disk-drive zoekt dan namelijk naar 
het programma "hardcopy.prg". Zon¬ 
der resultaat, want dat krijgt U immers 
pas volgende maand I 
Peter Boncz 


Foutje! 


Bij het artikel Interfacing met de Ami- 
ga zijn enkele foutjes in de BASIC lis¬ 
ting geslopen. De groter dan en klei¬ 
ner dan tekens waren verminkt. Hier 
volgt de verbeterde BASIC listing. 

a=10498064 
b=10498048 
POKE 10498096,255 
POKE 10498080,255 
REM alles wordt uitgang 
POKE a,255: POKE b,255 
REM alle uigangen uit! 

loop: 

a$=INKEY$ 

IF a$="" THEN loop 
c=ASC(a$) 

IF c<97 OR 0112 THEN loop 
IF o104 OR c<112 THEN GOSUB 
loop2 


IF o97 OR c<104 THEN GOSUB loopi 
GOTO loop 

loopi: 

IFO104 THEN loop2 

POKE b,255; POKE a,255-2''(c-97) 

RETURN 


loop2: 

POKE a,255: POKE a,255-2''(c-105) 
RETURN 


END 

Men verzocht ons om voor de duide¬ 
lijkheid ook een pin-beschrijving van 
de 1/0 kaart te geven. 

Naam. Pen nr. Exp. poort 

-VMA 51 (Valid Memory Address) 

IRQ 19 (INT2) 


R/-W 68 (-PRW) 


E 

50 (714 KHz) 

-RES 53 (RESET) 

DO 

75 

D1 

77 

D2 

79 

D3 

81 

D4 

83 

D5 

86 

D6 

84 

D7 

82 

A4 

24 

A5 

21 

A6 

23 

A7 

28 

A12 

38 

Al 3 

39 

A20 

56 

+5V 

5 Of 6 


- 1,2,3,4,12,13,25, 

37,49,61,73 of 85 
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Dit artikel gaat terug naar het begin. Niet iedereen leest al jaren Commodore Info, er 
worden nog steeds grote aantallen C-64’s verkocht. En we willen zow^de oude rot¬ 
ten als de nieuwe gebruikers bedienen. 

Beginnershoek(je) 

D at Commodore Info het Nederlands-talige computerblad gericht op alle 
commodore computers is behoeven we U niet te vertellen. Dat het ook 
het eerste blad is dat er over deze computer uitkwam weet U mischien niet. 

Het biijkt nu ook het blad te zijn met het meeste uithoudingsvermogen. Het 
is nog het enige Nederiandstaiige op Commodore gerichte blad! We hopen 
het ook nog jaren uit te houden. 


Dat we al een aantal jaren artikelen 
publiceren heeft ook zijn consequen¬ 
ties. We zijn begonnen met eenvoudi¬ 
ge artikelen over de Commodore. Met 
de jaren Is dat langzaam opgebouwd. 
We zitten nu vaak op een behoorlijk 
niveau. 

Gelukkig zijn er de laatste jaren een 
groot aantal Commodore gebruikers 
bijgekomen. En hier komen we tege¬ 
lijk op het grote probleem. Deze be¬ 
ginners lezen ook ons blad, maar be¬ 
grijpen vaak niet waar het overgaat. 
Zij hebben de beginfase gemist. Om 
ook deze lezers tot een hoger niveau 
te kunnen brengen gaan we starten 
met deze "rubriek". In elke Commodo¬ 
re Info treft U op deze pagina’s dan 
ook de grondbeginselen van de ge¬ 
weldige computer-hobby aan. 

Omdat Commodore verschillende 
computers uitbrengt (bracht) is er in 
ons blad ook ruimte voor de verschil¬ 
lende computers gereserveerd. We 
lopen deze computers even stuk voor 
stuk na. Allereerst hebben we de PET, 
één van de eerste personal compu¬ 
ters. Hier wordt, buiten een enkele 
verzamelaar, weinig meer mee ge¬ 
daan. Dit zelfde geldt voor de VIC 20 
en de semi-professionele Commodo¬ 
re lijn, bijvoorbeeld de 8296. Omdat 
hier weinig intreesse voor is besteden 
wij ook in ons blad hieraan geen aan¬ 
dacht meer. Tenzij iemand hiervoor 
weer iets unieks bedenkt. De Commo¬ 
dore 64 is de computer die het meest 
is verkocht, en daarom relatief veel 
aandacht in ons blad krijgt. De Com¬ 
modore Cl6 en in één adem te noe¬ 
men PLUS-4, hebben om onduidelijke 
redenen het nooit gemaakt. De com¬ 
modore 128 is al een tijdje op de 
markt, maar begint nu pas wat meer 
gebruikt te worden. Wij proberen de 
gebruikers van deze computers te sti¬ 
muleren hun computer goed en veel 
te gebruiken. Hiermee komen we op 


de Commodore 64, de computer die 
verreweg het meest is verkocht, ja 
zelfs nog wordt verkocht. Omdat dit 
een computer is waar ook een begin¬ 
ner binnen redelijke tijd goed mee uit 
de voeten kan besteden we hier rela¬ 
tief veel aandacht aan. Sterk opko¬ 
mend is de Amiga, ook deze compu¬ 
ter zullen wij de aandacht geven die hij 
verdient. 

Wij starten deze reeks met een uitleg 
hoe onze listings moeten worden 
overgenomen. Er zitten in onze Print- 
Out rubriek altijd een aantal kortere 
listings. Dit zijn ideale programma’s 
om over te tikken. Door dit overtikken 
leert U veel over de werking van de 
programmatuur. Heel vaak is er ook 
een uitleg bij geschreven waar in ver¬ 
teld wordt welk onderdeel wat doet. 
Als U zich houdt aan het onderstaan¬ 
de moet het lukken om goed werken¬ 
de programma’s te verkrijgen. 

Printlist Vl.1 

Commodore gebruikt naast de "gewo¬ 
ne" toetsen een aantal kleur/stu- 
ringstoetsen. Deze toetsen geven, als 
ze op een niet Commodore printer 
worden afgedrukt, een onduidelijk te¬ 
ken. Om deze tekens duidelijk aan u 
over te brengen is er een programma 
geschreven dat we Printlist hebben 
genoemd. Wat doet dit programma? 
Kortweg gezegd: Printlist vertaalt alle 
tekens die niet, of niet duidelijk door 
een professionele printer zijn af te 
drukken, naar leesbare tekens. Het 
programma is volledig menugestuurd. 

Voor alle Commodore’s 

Het sterke punt van dit programma is 
dat U op elke Commodore computer 
listings uit kan draaien van de ver¬ 
schillende Commodore’s. Een listing 
van de oude PET, Vic 20, C 64, C 16 , i 



Plus 4 en natuurlijk ook de Commodo¬ 
re 128, het kan allemaal zonder pro¬ 
blemen. Printlist werkt echter alleen 
met een diskdrive. 

Na het runnen van het programma 
wordt er om de naam van het 
programma gevraagd dat u wilt gaan 
uitlisten., Dit kan zowel op het scherm, 
als op de printer (device 4 of 5) gebeu¬ 
ren. De papierlengte staat standaard 
ingesteid op 72 regels maar kan via 
het menu naar eigen wens worden 
aangepast in elke andere waarde. 
Standaard staat het programma inge¬ 
steld om een listing van een Commo¬ 
dore 64 uit te listen. Wilt U een listing 
van een andere Commodore uitlisten 
dan mag U niet vergeten deze voor de 
juiste computer in te stellen. Dit gaat 
eenvoudig door de juiste keuze in het 
menu te maken. Als laatste wordt er 
gevraagd of alle ingestelde waardes 
juist zijn, zo niet dan kunt U dit alsnog 
veranderen. Is alles goed ingesteld 
dan is een druk op de RETURN-knop 
voldoende om het programma in wer¬ 
king te stellen. 

Al onze listings worden met behulp 
van dit programma uitgeprint. Het is 
nu eenvoudig om deze listings over te 
typen. U hoeft maar één ding goed te 
onthouden: alles wat tussen de grote, 
rechte haken staat moet worden uit¬ 
gevoerd. Dus niet letterlijk overne¬ 
men !! Bijvoorbeeld: 

40 w$=w$+"[CRSR-DOWN][CRSR- 
LEFT]B[CRSR-DOWN]c[COM 
9]A[COM Oj" 

Hiervoor typt U in: 40 w$=w$-i- dan 
voert U uit wat er tussen de eerste ha¬ 
ken staat door op de toets te drukken 
waarmee de cursor naar beneden 
gaat. Daarna op de toets die de cursor 
naar links stuurt. Dit geeft steeds een 
reverse teken op het scherm. U ver¬ 
volgt de listing door het intypen van 
een hoofdletter B, gevolgd door het in¬ 
drukken van de toets die zorgt voor 
het naar beneden gaan van de cur- 
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sor.Een kleine letter c wordt gevolgd 
door het indrukken van de combinatie 
Commodore- en de 9 toets. Een 
hoofdletter A en als afsluiting de com¬ 
binatie commodore- en de 0 toets, en 
de aanhalingstekens. Het belangrijk¬ 
ste is dus dat alles dat gewoon ge¬ 
schreven staat, letterlijk wordt overge¬ 
nomen. Wat in hoofdletters staat ook 
in hoofdletters overtypen. De kleine 
letters typt U ook in uw listing met de 


kleine letter. Alles wat tussen de rech¬ 
te haken staat altijd uitvoeren. De ha¬ 
ken mag U echter nooit overtypen. 

Ook naar de PC 

Een listing van een commodore com¬ 
puter die op deze manier is bewerkt is 
zonder al te veel moeite naar een an¬ 
dere computer over te zetten, bijvoor¬ 
beeld naar een PC. Niet dat het pro¬ 


gramma zo zal werken, maar het kan 
U veel typewerk besparen. 

De listing van Printlist is voor diegene 
die met een Commodore printer MPS 
1000 werken zonder meer over te ne¬ 
men. Heeft U een andere printer dan 
moet U in regel 100 van af de laatste 
dubbele punt de tekst weglaten, dus 
:mps1000=1 laat U er helemaal uit. 


Programma printlist v 1.1 


100 z$=chr$(.):print"[SHIFT-CLR][2xHOM 
E][CTRL-N]":dimtk$(255),ch$(255); 
mps1000=1 

101 print"[3xCRSR-RIGHT]PrintList[SPAC 
E]v1.1 [2xSPACE]-[SPACE](C)87[SPAC 
E]HSP":print"[CRSR-DOWN][3xCRSR-RI 
GHT|Een[SPACE]momentje[SPACE]graag 
[SPACE]"; 

102 print".";:fori=128to232:readtk$(i) 

:next:rem tokens basic 2/4 $80 

-$68 

103 print".";:fori=076to125:readtk$(i) 

:next:rem tokens basic 3.5 $cc 
-$fd 

104 print".";:fori=066to074:readtk$(i) 

:next:rem tokens basic 7.0$ce $02 
-$0a 

105 print".";:fori=002to038:readtk$(i) 

:next:rem tokens basic 7.0$fe $02 
-$26 

106 print".";:forl=001 to032;readch$(i) 
:next:rem quotecodes 

107 print".";:fori=129to192:readch$(i) 

:next 

108 print".";:fori=219to223:readch${i) 
:next:readch$(255) 

109 print"[HOME][3xCRSR-DOWN][3xCRSR-R 
IGHT]Programmanaam[3xSPACE]*[9xSPA 
CE][12xCRSR-LEFT]"; 

110 inputf$:f$=left$(f$,16):iff$=""the 
n109 

111 dd=8:print"[HOME][5xCRSR-DOWN][5xC 
RSR-RIGHT]Disk[SPACE]DEVICE[2xSPAC 
E]"str$(dd)"[3xCRSR-LEFT]"; 

112 inputd$:dd=val(d$):ifdd<8ordd>15th 
enill 

113 pd=4:print"[HOME][6xCRSR-DOWN][4xC 
RSR-RIGHT]Print[SPACE]DEViCE[2xSPA 
CE]"str$(pd)"[3xCRSR-LEFT]"; 

114 inputd$:pd=val(d$):ifpd<3orpd>6the 
n113 


115 


116 

117 


pl=72+47*(pd=3);print"[HOME][7xCRS 

R-DOWN][5xCRSR-RIGHT]Blad[SPACE]LE 

NGTE[2xSPACE]"str$(pl)"[4xCRSR-LEF 

T]"; 

inputd$:pi=val(d$):ifpl<.then115 

ll=40+(pd=3):print"[HOME][8xCRSR-D 

OWN][4xCRSR-RIGHT]Regel[SPACE]LENG 

TE[2xSPACE]"str$(ll)"[4xCRSR-LEFT] 


118 inputd$:ll=vai(d$):ifii<20orii>160 
then115 

119 print"[HOME][10xCRSR-DOWN]","MODUL 
E[SHIFT-SPACE]1[SPACE]=[SPACE]PET, 
VIC20,CBM64 

120 print,"MODULE[SHIFT-SPACE]2[SPACE] 
=[SPACE]CBM16[SPACE]en[SPACE]PLUS/ 
4":print,"MODULE[SPACE]3[SPACE]=[S 
PACE]COIVIMODORE[SPACE]128 

121 pm=1 :print"[HOME][14xCRSR-DOWN][4x 


CRSR-RIGHT]Print[SPACE]MODULE[2xSP 

ACE]"str$(pm)"[3xCRSR-LEFT]"; 

122 inputd$:pm=val(d$):ifpm<1orpm>3the 
n121 

123 print"[HOME][16xCRSR-DOWN]","[4xCR 
SR-RiGHT]OK[3xSPACE]j[3xCRSR-LEFT] 

M , 

124 inputd$:ifleft$(d$,1)="n"thenrun 

125 openl 5,dd,15:open8,dd,8,f$+",p,r": 
input#15,en,em$,et,es:ifen=.then12 
7 

126 print"[SHIFT-CLR]"em$:close8:close 
15:end 

127 get#8,x$:get#8,x$:ifmp=.thenopen4, 
pd,7 

128 ifmp=1thenopen4,pd:print#4,chr$(27 
)chr$(120)"1"; 

129 gosub153 

130 get#8,l1$:get#8,l2$:ifasc(l1$+z$)= 
.andasc(12$+z$)=.then144 

131 get#8,l$:x=asc(l$+z$):get#8,l$:r=2 
56*asc(l$+z$)+x :q=. 

132 p$=right$("[4xSPACE]"+mid$(str$(r) 
,2)+"[SPACE]",6) 

133 get#8,c$;c=asc(c$+z$)lonqgotol 38:i 
fc=34thenq=1 

134 ifc=.thengosub147:goto130 

135 if(c=254orc=206)andpm=3thence=-(c= 
206):fe=-(c=254):goto133 

136 ifc<128andce=.andfe=.thenp$=p$-t-c$: 
gosubl 46:goto133 

137 p$=p$+tk$(c-128*(c>203)*(pm>1 )-64* 

(ce=1 )):fe=. :ce=. :gosub146:goto133 

138 ifct=.thenq=.:on-(c=.orc=34)goto13 
4:q=1 :a=c:h$=chr$(c):ct=1 :goto133 

139 ifa=cthenh$=h$+chr$(c):ct=ct+1 :got 
0133 

140 ifch$(a)<>""thenh$=ch$(a):ifct=1th 
enh$="["+h$+"]" 

141 ifch$(a)<>""andct>1 thenh$="["+mid$ 
(str$(ct),2)+"x"+h$+"]" 

142 p$=p$+h$;gosub146:ct=.:ifc=.orc=34 
thenq=.:goto134 

143 goto138 

144 close8:close15:print#4:l=l+1 

145 p$="[6xSPACE]“[SPACE]EINDE[SPACE] 
LISTING[SPACE]"+f$:gosub148:print# 
4:close4:end 

146 iflen(p$)<llthenreturn 

147 ifc=0andien(p$)=6then149 

148 1=1+1 :pc$=left$(p$,ll):gosub155:p$ 
="[6xSPACE]"+mid$(p$,ll+1) 

149 ifl<pl-3thenreturn 

150 ifpd<>3thenfori=ltopl;print#4:next 
:goto153 

151 print"[CRSR-DOWN][6xSPACE][CTRL-9] 
[SPACE]druk[SPACE]nu[SPACE]op[SPAC 
E]een[SPACE]toets[SPACE]" 

152 getg$;ifg$=""then152 

153 print"[SHIFT-CLR]";;pg=pg+1 :print# 

4 

154 pc$="[6xSPACE]BLAD"+str$(pg)+"[SPA 
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CE]Programma[SPACE]"+f$:gosub155;p 

rint#4:l=4:return 

155 ifpd=3ormp=.thenprint#4,pc$:return 

1 56 pd$=pc$:pc$="":fori=1 tolen(pd$):a= 
asc(mid$(pd$,i)) 

157 pc$=pc$+chr$(a+32*(a>64)*(a<91 )-12 
8*(a> 192)*(a<219)-189*(a=48)) ;next 

158 print#4,pc$chr$(27)"j"z$pc$:return 

159 data end,tor,next,data,input#,inpu 
t,djm,read 

160 data let,goto,run,if,restore,gosub 
.return,rem 

161 data stop,on,wait,load,save,verify 
,def,poke 

162 data print#,print,cont,list,clr,cm 
d,sys,open 

163 data close,get,new,tab(,to,fn,spc( 

,then 

164 data not,step,+,-,*,/,~,and 

165 data or,>,=,<,sgn,int,abs,usr 

166 data fre,pos,sqr,rnd,log,exp,cos,s 
in 

167 data tan,atn,peek,len,str$,val,asc 
,chr$ 

168 data left$,right$,mid$,go,concat,d 
open.dclose.record 

169 data header,collect,backup,copy,ap 
pend,dsave,dload,catalog 

170 data rename,scratch,directory.dcle 
ar,bank,bload,bsave,key 

171 data deiete,else,trap,resume,dispo 
se,pudef,using,err$ 

172 data instr,rgr,rclr,rlum,joy 

173 data rdot,dec,hex$,err$,instr,else 
,resume,trap 

174 data tron,troff,sound,vol,auto,pud 
ef.graphic.paint 

175 data char,box,circle,gshape,shape, 
draw.iocate.color 

176 data scnclr,scale,help,do,loop,exi 
t,directory,dsave 

177 data dioad.header,scratch,collect, 
copy,rename,backup,delete 

178 data renumber.key,monitor,using.un 
til.while 

179 data pot,bump,pen,rsppos,rsprite,r 
spcolor.xor.rwindow,pointer 

180 data bank,filter,piay,tempo,movesp 
r.sprite 

181 data sprcolor.rreg.enveiope,sleep, 
catalog,dopen,append,dclose 

182 data bsave.bload,record,concat.dve 
rify,dclear,sprsave,collision 


183 data begin,bend,window,boot,with,s 
prdef,quit,stash 

184 data "[SPACE]",fetch,"[SPACE]",swa 
p,off,fast,slow 

185 data "CTRL[SPACE]A","CTRL[SPACE]B" 
,"CTRL[SPACE]C","CTRL[SPACE]D","CT 
RL[SPACE]2","CTRLrSPACE]F","CTRLrS 
PACE]G" 

186 data "CTRL[SPACE]H","CTRL[SPACE]r' 
,"CTRL[SPACE]J","CTRL[SPACE]K","CT 
RL[SPACE]L","","CTRL[SPACE1N","CTR 
L[SPACE]0" 

187 data "CTRL[SPACE]P","CRSR-DOWN","C 
TRL[SPACE]9","HOME","DEL","CTRL[SP 
ACE]U","CTRL[SPACE]V" 

188 data "CTRL[SPACE]W","CTRL[SPACE]X" 
,"CTRL[SPACE]Y","CTRL[SPACE]Z","CT 
RL[SPACE][","CTRL[SPACE]3" 

189 data "CRSR-RIGHT","CTRL[SPACE]6"," 
CTRL[SPACE]7","SPACE" 

190 data "COM[SPACE]1"„„"F1","F3","F 
5","F7","F2","F4","F6","F8","","", 


191 data "CTRL[SPACE]1","CRSR-UP","CTR 
L[SPACE]9","SHIFT[SPACE]CLR","SHIF 
T[SPACE]INST" 

192 data "COM[SPACE]2","COI\/l[SPACE13"," 
COM[SPACE]4","COM[SPACE]5","COI\/l[SP 
ACE]6","COM[SPACE]7","COMrSPACE]8" 

193 data "CTRL[SPACE]5","CRSR-LEFT","C 
TRL[SPACE]8","CTRL[SPACE]4","SHIFT 
[SPACE]SPACE" 

194 data "COM[SPACE]K","COM[SPACE]l"," 
COM[SPACE]T","COM[SPACE]‘","COM[SP 
ACE]G","COM[SPACE]+","COM[SPACE]M" 

195 data "COM[SPACE]|","SHIFT[SPACE]|" 
,"COM[SPACE]N","COM[SPACE]Q","COM[ 
|PACE]D","COM[SPACE]Z","COM[SPACE] 

196 data "COM[SPACE]P","COI\/l[SPACE]A"," 
COM[SPACE]E","COM[SHIFT-SPACE]R"," 
COM[SPACE]W","COM[SPACE]H","COM[SP 
ACE]J" 

197 data "COIVI[SPACE]L","COM[SPACE]Y"," 
C0M[SPACE]U","C0IVI[SHIFT-SPACE10"," 
SHIFT[SPACE]‘","COM[SPACE]F","COM[ 
SPACEJO 

198 data "COM[SPACE]X","COM[SPACE]V"," 
COM[SPACE]B","SHIFT[SPACE]*" 

199 data "SHIFT[SPACE]+","COM[SPACE]-" 
,"SHIFT[SPACE]-","C0M[SPACE1PI","C 
OM[SPACE]*","COM[SPACE]PI" 


Cheksum 

REGEL 100 90 
REGEL 101 254 
REGEL 102 154 
REGEL 103 201 
REGEL 104 57 
REGEL 105 41 
REGEL 106 81 
REGEL 107 158 
REGEL 108 246 
REGEL 109 126 
REGEL 110 193 
REGEL 111 208 
REGEL 112 160 
REGEL 113 58 
REGEL 114 145 
REGEL 115 106 
REGEL 116 115 
REGEL 117 150 
REGEL 118 47 
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REGEL 119 253 
REGEL 120 232 
REGEL 121 231 
REGEL 122 166 
REGEL 123 218 
REGEL 124 5 
REGEL 125 185 
REGEL 126 50 
REGEL 127 97 
REGEL 128 83 
REGEL 129 38 
REGEL 130 2 
REGEL 131 0 
REGEL 132 94 
REGEL 133 161 
REGEL 134 213 
REGEL 135 161 
REGEL 136 91 
REGEL 137 99 
REGEL 138 144 
REGEL 139 70 


REGEL 140 126 
REGEL 141 118 
REGEL 142 234 
REGEL 143 37 
REGEL 144 125 
REGEL 145 131 
REGEL 146 147 
REGEL 147 20 
REGEL 148 247 
REGEL 149 57 
REGEL 150 131 
REGEL 151 223 
REGEL 152 113 
REGEL 153 166 
REGEL 154 218 
REGEL 155 79 
REGEL 156 235 
REGEL 157 169 
REGEL 158 187 
REGEL 159 7 
REGEL 160 193 
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REGEL 161 241 
REGEL 162 74 
REGEL 163 106 
REGEL 164 198 
REGEL 165 178 
REGEL 166 254 
REGEL 167 89 
REGEL 168 227 
REGEL 169 225 
REGEL 170 175 
REGEL 171 185 
REGEL 172 19 
REGEL 173 147 
REGEL 174 28 
REGEL 175 254 
REGEL 176 60 
REGEL 177 46 
REGEL 178 91 
REGEL 179 181 
REGEL 180 255 
REGEL 181 21 


REGEL 182 149 
REGEL 183 7 
REGEL 184 6 
REGEL 185 163 
REGEL 186 217 
REGEL 187 12 
REGEL 188 37 
REGEL 189 63 
REGEL 190 127 
REGEL 191 2 
REGEL 192 115 
REGEL 193 67 
REGEL 194 103 
REGEL 195 103 
REGEL 196 49 
REGEL 197 81 
REGEL 198 204 
REGEL 199 80 



In veel Basic programma’s is het noodzakelijk invoer van de geb ruiker te verwerken. 
Daarvoor kan een vaste routine worden gebruikt, die dan ook door Johan&Johan werd 
geschreven, zodat de Basic programmeur niet steeds opnieuw het wiel hoeft uit te vin¬ 
den. 


Invoer 64 


N a het publiceren van een flexibele invoer routine voor de C 128 een aan¬ 
tal nummers terug, is er nu eentje voor de oude vertrouwde Commodo¬ 
re 64. Er bleek namelijk dat er een chronisch tekort was aan ‘echte’ flexibe¬ 
le invoer routines voor de C 64, vandaar dit stukje huisvlijt, voor iedereen 
die hier behoefte aan heeft. 

Hoe werkt het? 

De routine is erg klein, dit is een voor¬ 
waarde bij flexibele routines, kleine 
routines kunnen namelijk makkelijk 
opgenomen worden in programma’s 
ze nemen immers weinig ruimte in. 

Flexibel, wat verstaan we nu eigenlijk 
onder flexibel? Welnu een flexibele 
routine moet in elk programma pas¬ 
sen, in geval van deze invoerroutine is 
het bijvoorbeeld mogelijk de X en Y 
coördinaat en de lengte op te geven. 

Het gebruiken van deze routine is sim¬ 
pel, eerst tikt u de data-loader in, deze 
schrijft u eerst weg op disk of tape. 

Vervolgens start u deze basic routine 
op, nu kunt u de machine taal weg¬ 
schrijven met een machinetaal moni¬ 
tor. Het adres is $c000 tot en met 
$c0b2. Van uit een basic programma 
kunt u de routine opstarten met: 



poke 250,Y 

poke 251,X 
poke 252,Lengte 
sys 49152 


Listing 1: Basic listing van invoerroutine voor de C64 

1000 REM" *****************************************************************************„ 

1001 REM"** Invoer routine voor de C-64 **" 

1002 REM"** Door Johan & Johan voor COMMODORE INFO in 1989. **" 

1004 REM" ii**************************************************************************^ 

1005 : 

1010 : FOR X=49152 TO 49330 

1020 : READ A 

1030 : CS=CS+A 

1040: POKEX,A 

1050 : NEXTX 

1060 : 

1070 IFCS<>27419 THEN PRINTCHR$(7):LIST:END 
1080 : 

1090 DATA 032,156,192,169,151,032,210,255,166,250,164,251,032,168,192,169 
1100 DATA 046,166,252,032,210,255,202,224,255,208,248,169,032,032,210,255 
1110 DATA 166,250,164,251,032,168,192,032,210,255,032,228,255,240,251,201 
1120 DATA 133,208,007,169,000,133,253,076,003,192,201,034,240,236,201,013 
1130 DATA 208,012,165,253,201,000,208,005,169,000,157,181,192,096,201,020 
1140 DATA 208,013,166,253,224,000,240,210,198,253,166,253,076,140,192,024 
1150 DATA 201,032,144,198,024,201,096,144,010,024,201,193,144,188,024,201 
1160 DATA 219,176,183,166,253,228,252,240,177,232,134,253,157,181,192,072 
1170 DATA 169,155,032,210,255,104,032,210,255,076,042,192,160,000,185,174 
1180 DATA 192,032,210,255,200,192,004,208,245,076,042,192,166,250,164,251 
1190 DATA 032,012,229,169,000,133,253,096,134,214,132,211,096,000,151,157 
1200 DATA 046,157,032 , 


De ingevoerde ‘tekst’ staat achter de 
invoer routine zelf namelijk vanaf 
$c0b5. Vanuit een basic programma 
kunt u deze de ‘tekst’ het beste opha¬ 
len met de PEEK instructie en vervol¬ 
gens om zetten in ASCII met die 
CHR$ instructie. We geven hier even 
een voorbeeld: 

a$="" 

for x=0 to ‘Lengte’ 
a$=a$-rchr$(peek(49333-t-x)) 
next X 

De ingevoerde tekst wordt nu verza¬ 
melt in de a$. De invoerroutine vanuit 
machinetaal gebruiken is veel een¬ 
voudiger, leest u even mee: 

Ida #$ y-pos 

Idx #$ X-pos 
Idy #$ lengte 
sta $fa 
stx $fb 
sty $fc 
jsr $c000 

De tekst staat vanaf $c0b5. Als u de 
invoer routine heeft opgestart dan ziet 
u een aantal puntjes staan. Het aantal 
puntjes is gelijk aan het aantal karak- 
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ters die u heeft opgegeven in 'Lengte’, 
spreekt voorzich dachten wij zo. Stel 
u of iemand die deze gebruikt tikt iets 
in dat volkomen onzin is, no problem... 
Even op F1 drukken en opnieuw intik¬ 
ken. Gemak dient de mens... niet 
waar dan? Ja toch I! 

Fast listing 

Voor het gemak hebben we de FAST- 
listing van deze invoer routine erbij 
gedaan. Flet is nu vrij simpel de routi¬ 
ne te verplaatsen en/of aan te passen. 
In de listing komt u boven aan het vol¬ 
gende tegen: 

1060 buffer EQU $0c00 


Dit is het adres waar de tekst staat die 
ingevoerd wordt. Ook de kleur van de 
puntjes op het scherm en de kleur van 
de karakters kunt u nu makkelijk ver¬ 
anderen. Voor diegene die over een C 
128 beschikt en de fast listing in willen 
tikken, de volgende opmerking: Deze 
routine is en blijft voor de C 64 (mode), 
bij het compileren van deze listing 
moet u er rekening mee houden dat 
fast vanaf $1300 in het geheugen 
staat. Flet meest handige is om de 
routine op $c000 te compileren in 
bank 1. U dient ook de routine uit bank 
1 op te halen bij het saven naar disk. 

1000 BNKO 


Ook moet u dus de bovenstaande 0 in 
een 1 veranderen anders zal FAST de 
routine in bank 0 opslaan. En dat is 
niet de bedoeling. In ieder geval veel 
plezier bij dit kadootje van 
JOHAN & JOHAN 


Listing 2: FAST-listing van invoerroutine 
voor de C64 


1000 

BNKO ; 

1010 

ORG $0B00 ; 

1020 ; 


1030 PLOT 

EQU $E50C ; 

1040CHROUT EQU$FFD2 ; 

1050GETIN 

EQU $FFE4 ; 

1060 BUFFEF 

1 EQU $0C00 ; 

1070 ; 


1080 

JSR READ XY POS ; 

1090 SET COLOR LDA#151 

1100 

JSR CHROUT ; 

1110 

LDX $FA ; 

1120 

LDY $FB ; 

1130 

JSR SET XY POS ; 

1140 

LDA #46 ; 

1150 

LDX $FC ; 

1160 SET POINT JSRCHROUT 

1170 

DEX ; 

1180 

CPX #255 ; 

1190 

BNESET POINT ; 

1200 

LDA #32 ; 

1210 

JSR CHROUT ; 

1220 

LDX $FA ; 

1230 

LDY $FB ; 

1240 

JSR SET XY POS ; 

1250 

JSR CHROUT ; 

1260 WAIT FOR KEY JSR GETIN 

1270 

BEQWAIT FOR KEY 

1280 

CMP#133 ; 

1290 

BNENO F1 ; 

1300 

LDA#0 ; 

1310 

STA $FD ; 

1320 

JMP SET_COLOR ; 

1330 ; 


1340 NO F1 

CMP #34 ; 

1350 

BEQWAIT FOR KEY 

1360 

CMP #13 ; 

1370 

BNE DELETE ; 

1380 

LDA $FD ; 

1390 

CMP #0 ; 

1400 

BNE EINDE ; 

1410 

LDA #0 ; 

1420 

STA BUFFER,X ; 

1430 EINDE 

RTS ; 

1440 ; 


1450 DELETE 

CMP #20 ; 

1460 

BNE BINNEN BEREIK 

1470 

LDX $FD ; 

1480 

CPX #0 ; 


1490 

BEQWAIT FOR KEY 

1500 

DEC $FD ; 

1510 

1520 

1530 ; 

1540 BINNEN 

LDX $FD ; 

JMP INSTAL_TABEL ; 

BEREIK CLC 

1550 

CMP #32 ; 

1560 

BCCWAIT FOR KEY 

1570 

CLC ; 

1580 

CMP #96 ; 

1590 

BCC CHECK ; 

1600 

CLC ; 

1610 

CMP #193 ; 

1620 

BCCWAIT FOR KEY 

1630 

CLC ; 

1640 

CMP #219 ; 

1650 

BCSWAIT FOR KEY 

1660 CHECK 

LDX $FD ; 

1670 

CPX $FC ; 

1680 

BEQWAIT FOR KEY 

1690 

INX ; 

1700 

STX $FD ; 

1710 

STA BUFFER,X ; 

1720 

PHA ; 

1730 

LDA #155 ; 

1740 

JSR CHROUT ; 

1750 

PLA ; 

1760 

JSR CHROUT ; 

1770 

1780 ; 

1790 INSTAL 

JMP WAIT_FOR_KEY ; 

TABEL LDY#0 

1800 NEXT BYTE LDA TABEL,Y 

1810 

JSR CHROUT ; 

1820 

INY ; 

1830 

CPY #4 ; 

1840 

BNE NEXT BYTE ; 
JMP WAIT FOR KEY : 

1850 

1860 ; 


1870 READ XY POS LDX $FA 

1880 

LDY $FB ; 

1890 

JSR PLOT ; 

1900 

LDA #0 ; 

1910 

STA $FD ; 

1920 

1930 ; 

RTS ; 

1940 SET XY 

POS STX $D6 

1950 

STY $D3 ; 

1960 

RTS ; 

1970 ; 

1980 TABEL 
1990 ; 

DAT $979D2E9D20 

2000 

END 
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Syntax Checksum 


i Het overtikken van een listing kan een heel karwei 
I zijn en als u een beetje normaal mens bent dan 
maakt u daarin beslist een aantal fouten. Nu is niets 
moeilijker om de fouten uit je eigen werk te halen. Al 
geruime tijd heeft Jan Bodzinga hiervoor een zgn. 
Checksum-programma geschreven. Om de vele 
nieuwe lezers van Commodore-info te helpen volgt 
hieronder nog een keer een volledige uitleg over de 
werking van dit programma, waarmee het, hoe 
vreemd dat misschien ook lijkt, echt mogelijk is om 
met behulp van dit programma de fouten in elke door 
ons geplaatste listing op te sporen. 

Hiervoor gaat u als volgt te werk: 

1. U tikt de listing heel zorgvuldig over en SAVEt hem 
voordat u het programma RUNt op een diskette of 
cassette. 

2. U tikt het RUN commando in. Mocht het program¬ 
ma de boodschap 'FOUT in dataregels!’ geven dan 
heeft u een fout bij het overtikken gemaakt. Herstel 
dan de fout en SAVE de verbeterde versie. Mocht het 
programma met de boodschap 'data is weggezet 
checksum testen met sys...'komen dan is tot dusver 
alles goed. Het programma is nu in een stukje 
machinetaalgeheugen gezet. Als u het NEW com¬ 
mando geeft blijft het toch in de computer staan. 

Alle door ons geplaatste programma’s zijn in Basic 
geschreven. 

Als u een programma heeft overgetikt SAVE het 
eerst, mocht er iets mis gaan dan hoeft u niet de ge¬ 
hele listing opnieuw te gaan intikken. Als u nu een 
programma op fouten wilt gaan controleren dan kunt 
u dat in het geheugen laden(wel eerst het checksum 
programma hebben gerund). Vervolgens typt u zon¬ 
der het programma te runnen de opdracht sys 
49152(c-64) of sys 1536 (c-16 en plus/4)in. 

Als alles goed is gegaan loopt er nu een rij regelnum¬ 
mers over het scherm met getallen erachter. Dezelf¬ 
de lijst staat ook achter elk door ons geplaatste pro¬ 
gramma. Wijkt nu een nummer achter een regelnum¬ 
mer af van het nummer dat in het blad staat dan 
heeft u in die regel iets anders ingetikt dan er in het 
blad stond. U kunt de stroom getallen d.m.v. de 
RUN/STOP toets pauzeren en weer vervolgen met 
de F1 of F7 toets. Het is uitermate belangrijk dat u 
goed met dit programma overweg kunt en mocht u 
het niet goed werkend krijgen bel dan gerust even 
met onze listingservice telefoonlijn. (Maandag 17.00 - 
21.00 uur. Telefoonnummer 02155-25162.) 

1 rem ****************************** 

2 rem basic loader "SYNTAX.CHECKSUM" 

3 rem na de commando's "run" en "new 

tl 

4 rem blijft dit programma in het ge 

5 rem heugen. laad het te testen pro 

6 rem gramma en tik daarna sys 49152 

7 rem ****************************** 

*** 

10 i=49152 :rem beginadres 

20 reada:ifa<0then40:rem data ingelez 


en 

30 pokei, a: i=i+l .•b=b+a: goto20 

40 if b<>16844thenprint"[SHIFT-CLR]fo 

ut[SPACE]in[SPACE]dataregels!":b=0 
; end 

50 poke49184,148:poke49185,192 

55 i=49300 

60 read a: ifa<0then80 

70 pokei, a:b=a+b: i=i-l-l :goto60 

80 if b<>20068thenprint"[SHIFT-CLR]fo 

ut[SPACE]in[SPACE]dataregels![SPAC 
E] (vanaf[SPACE]regel[SPACE]240)":b 
=0:end 

90 prinfdata [SPACE] is [SPACE] weggezet 

It 

95 print "checks\am[SPACE] testen [SPACE] 

met[SPACE]sys49152" 

100 data 165,43,166,44,133,163,134,164 
,169,147 

110 data 32,210,255,160,0,240,3,32,73, 
192 

120 data 32,73,192,208,1,96,32,225,255 
, 208 

130 data 3,76,116,164,32,81,192,32,73, 
192 

140 data 240,12,201,32,240,247,24,101, 

167,133 

150 data 167,76,37,192,166,167,169,0,1 

32.168 

160 data 32,205,189,169,13,32,210,255, 

164.168 

170 data 76,17,192,200,208,2,230,164,1 

77,163 

180 data 96,162,0,189,123,192,240,6,32 

, 210 

190 data 255,232,208,245,32,73,192,170 

,32,73 

200 data 192,132,168,32,205,189,162,3, 

169,32 

210 data 32,210,255,202,208,250,169,0, 

133,167 

220 data 164,168,96,82,69,71,69,76,32, 

0 

230 data -1 

240 data 165,197,201,3,240,7,201,4,240 

250 data 6,76,148,192,76,34,192,169 

260 data 147,32,210,255,76,161,192 

270 data -1 

** EINDE LISTING checksum 64 ** 


Checksum checksum 64 


REGEL 

1 

249 

REGEL 

110 

158 

REGEL 

2 

84 

REGEL 

120 

232 

REGEL 

3 

105 

REGEL 

130 

183 

REGEL 

4 

2 

REGEL 

140 

96 

REGEL 

5 

246 

REGEL 

150 

96 

REGEL 

6 

152 

REGEL 

160 

127 

REGEL 

7 

249 

REGEL 

170 

71 

REGEL 

10 

157 

REGEL 

180 

223 

REGEL 

20 

64 

REGEL 

190 

73 

REGEL 

30 

38 

REGEL 

200 

79 

REGEL 

40 

57 

REGEL 

210 

109 

REGEL 

50 

14 

REGEL 

220 

106 

REGEL 

55 

251 

REGEL 

230 

225 

REGEL 

60 

192 

REGEL 

240 

16 

REGEL 

70 

42 

REGEL 

250 

163 

REGEL 

80 

244 

REGEL 

260 

92 

REGEL 

90 

245 

REGEL 

270 

22 

REGEL 

95 

237 




REGEL 

100 

183 
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Programma-maker 


Het programma PROGRAMMA-MAKER is een pro¬ 
gramma van de maker: Rob Hagelstein uit Doetin- 
chem. Hij heeft niet alleen een geweldig programma 
geschreven, maar ook over de begeleidende brief 
met de uitleg zijn we uitermate tevreden. Omdat hier 
voor veel mensen nog wat te leren valt nemen we 
deze uitleg in zijn geheel over. 

Aan de rubriek PRINT-OUT 

In de Commodore Info van maart 1988, bladzijde 10, 
stond een artikel over de conversie van tekeningen. 
Boven dit artikel stond het volgende: "Zelf mooie te¬ 
keningen maken, en vervolgens die tekeningen in 
zelfgemaakte programma’s invoeren, is geen gemak¬ 
kelijke opgave. Daar komt heel wat programmeer 
werk bij kijken." 

Toen ik de rest van dit artikel door las werd ik duizelig 
van alle ingewikkelde poke en peeks en kwam erach¬ 
ter dat je wel heel veel van computers moet afweten 
om zoiets voor elkaar te krijgen. Om dit op te lossen 
heb ik "PROGRAMMA-MAKER" voor de Commodore 
64 geschreven. 

"Programma-Maker’ is een hires teken programma 
dat de zeer bijzondere eigenschap heeft dat het zelf 
de dataregels van de gemaakte tekening kan maken. 
Met het maken van dataregels bedoel ik dan niet dat 
het simpel op het scherm wordt geprint, maar dat ze 
als een echt basic programma geprogrammeerd wor¬ 
den. 

Dit basicprogramma is dus in staat om geheel 
zelfstandig een basic programma te programme¬ 
ren. Het enige dat de gebruiker van dit program¬ 
ma nog moet doen is het tekenen van de tekenin¬ 
gen. 

Verder wordt aan deze basic dataregels een klein 
programmaatje toegevoegd die de dataregels weer 
kan lezen en die de tekeningen weer in het hires 
scherm kan zetten. Dus de dataregels, die door dit 
programma zijn gemaakt zijn geheel compleet, en 
kunnen gewoon worden gerunt, gesaved en/of gelist 
worden. 

Met dit programma kunnen dus twee dingen worden 
gedaan. Namelijk het werken als een hires tekenpro¬ 
gramma en het geheel zelfstandig programmeren 
van dataregels. 

Voordelen van het programma. 

Het belangrijkste voordeel van het programma is 
ongetwijfeld dat de tekeningen geheel automatisch 
worden omgezet naar dataregels. Bij een "normaal" 
tekenprogramma worden deze getallen opgeslagen 
in geheugenblokken. Deze manier van opslaan is 
voor veel mensen hocus-pocus en daardoor kan men 
er niets mee beginnen. Door dit opslaan van deze 
gegevens in normale dataregels kan een ieder deze 
gegevens weer gebruiken, zelfs het start programma 
wordt erbij geschreven. 

Een tweede voordeel Is dat er relatief weinig datare¬ 
gels nodig zijn. Hierdoor blijft er nog genoeg geheu¬ 
genruimte over die dan voor andere zaken is te ge¬ 
bruiken. 


Geheugen 

Het hires geheugenblok bestaat uit 8000 geheugen- 
plaatsen. Meestal willen we meer kleuren hebben en 
daar zijn dan weer 1000 geheugenplaatsen voor no¬ 
dig. Opgeteld zijn er voor een hirestekening dus 9000 
geheugenplaatsen nodig. Wanneer je de inhoud van 
al deze geheugenplaatsen in data regels wilt plaat¬ 
sen kom je gegarandeerd in de problemen, dit past 
gewoon niet in het geheugen van de commodore 64. 
Voor dit probleem heb ik een eenvoudige oplossing 
bedacht. Dit programma zet niet domweg alle getal¬ 
len uit het hires-geheugen om in dataregels, maar al¬ 
leen de getallen die afwijken van het vorige getal. Om 
dit toe te lichten het volgende voorbeeld: 

Stel in een bepaald gedeelte van het hires-geheugen 
staat de volgende getallen reeks: 

0,0,0,0,0,0,0,0,255,255,255,255,8,0,0,0enz. 

De getallen die dan in de dataregel komen te staan 
zijn dan: 

530 data 0,263,255,259,8,0 enz 

De eerste 0 in de dataregel geeft aan dat het eerste 
getal in dat gedeelte van het hiresscherm een nul is. 
Het tweede getal is 263. Dit getal is groter dan 255 
en kan dus nooit een getal uit het hiresgeheugen zijn. 
Trekken we van dit getal nu 256 af dan krijgen we: 
263-256 = 7 dit betekend dat getal 0 7 maal herhaald 
moet worden. 

Het derde getal is 255 dus het 9e getal uit het hires¬ 
scherm moet 255 zijn. 

Het getal 259 is weer groter dan 255 dus 259-256 = 3 
dus 255 staat drie maal achter elkaar in het hires¬ 
scherm 

U begrijpt wel dat er in een tekening enorm veel ge¬ 
tallen zitten die gelijk zijn aan het vorige getal. Vooral 
bij het getal 0 zal dit vaak het geval zijn. De bespa¬ 
ring aan geheugen ruimte is daarom ook enorm. Er 
moeten wel hele gekke tekeningen gemaakt worden 
wil men in de problemen komen. 

Samengevat kan dus worden gesteld dat geheugen 
gebrek door te veel dataregels theoretisch tot de mo¬ 
gelijkheden behoort, maar praktisch zal dit "nooit" 
voorkomen. 

Natuurlijk is het wel mogelijk het programma moed¬ 
willig te laten vastlopen, door het gehele scherm vol 
te zetten met schuine lijnen. Het programma zal dan 
geen rijen getallen aantreffen die gelijk zijn aan het 
vorige getal. 

Het programma is zeer kort gehouden. Bij het maken 
van dit programma heb ik niet gekozen voor de mak¬ 
kelijkste oplossing, maar voor de snelste. Hierdoor is I 
het programma snel in te voeren. De gebruiksaan- | 
wijzing is ook in het programma ingebouwd en wel op 
het eind. Het kan dan ook eventueel worden wegge¬ 
laten. Dan moet U wel in regel 10 veranderen run 67 
in run 11 
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Natuurlijk heeft het programma ook enkele nadelen. 
Ten eerste is het programma niet zo uitgebreid als 
bijvoorbeeld Koala-Painter, het is tenslotte ook maar 
een basicprogramma. De joystick besturing is hier¬ 
door soms ook wat traag, maar dit is opgelost door 
een snelle cursorbesturing ingebouwd. Verder heeft 
de joystick in de tekenmode geen beveiliging voor als 
de cursor uit het beeld loopt. Dit is gedaan om de 
programma lus voor de besturing sneller te maken. 
Dit zal overigens geen problemen geven, want de 
cursor kan niet in "verboden" geheugenruimte ko¬ 
men. Dit zal automatisch gekorrigeerd worden als er 
een toets wordt ingedrukt. De cursor toetsen hebben, 
evenals de kleurmode, wel een beveiliging. 

Let op: 

Het programma dat bij de dataregels wordt gezet 
wordt gekopieerd uit het tekenprogramma (zie regel 2 
t/m 9). Om dit kopiëren mogelijk te maken moet de 
computer weten wat het beginadres van regel 2 is. 
Dit ligt daarom vast in het programma. Er mag daar¬ 
om in regel 1 "goto 10" niets veranderd worden. 

Handleiding voor PROGRAMMA-MAKER c64 

Dit programma heeft twee modes, namelijk de teken- 
mode en de kleurmode. Deze twee onderdelen wer¬ 
ken geheel onafhankelijk van elkaar. Dus de ge¬ 
bruiksaanwijzing van de tekenmode geldt niet voor 
de kleurmode en andersom. Als het programma ge¬ 
rund wordt start het op in de tekenmode. 

De funkties van de verschillende funktietoetsen wordt 
onderaan het hires-scherm weergegeven. 

Gebruiksaanwijzing tekenmode: 

Schetsen-Gebruik de joystick in poort twee. Druk op 
de vuurknop voor het schrijven 
Trekken lijn-Zet de cursor op het beginpunt van de 
lijn en druk op de pijl omhoog. Zet daarna de cursor 
op het eindpunt en druk nog een maal op deze toets. 
Maken cirkels-Zet de cursor op het middelpunt van 
de cirkel en druk op de *. Zet daarna de cursor op de 
buitenomtrek van de cirkel en druk de * toets nog¬ 
maals in. 

Schrijven tekst-Voor het schrijven van een tekst op 
het hiresscherm gebruikt U gewoon het toetsenbord. 
Voor kleine letters moet U de toets in combinatie met 
de shift toets gebruiken. 

Wissen punt-Gebruik de spatiebalk of de INST/DEL 
toets. Een vlakje van 8x8 punten zal nu gewist wor¬ 
den. 

Wissen scherm-Druk op de F7. 
Cursor-besturing-Inplaats van de joystick kunt U 
ook gebruik maken van de cursortoetsen. Hierdoor 
kan de cursor veel sneller verplaatst worden. Ü kunt 
er NIET mee schetsen. 

Cursor aan/uitzetten-Druk op de F3. Het witte vlakje 
zal dan verdwijnen of terug keren. 

Ga naar kleurmode-Druk op de F1 
Maken dataregeis-Druk op de F5 


Als U de F5 toets heeft gebruikt zal er enige secon¬ 
den niets gebeuren. Hierna zal het scherm langzaam 
worden gewist. Dit betekent dat de computer bezig is 
met het programmeren van de dataregels. Dit neemt 
wel enige tijd in beslag. Als de dataregels klaar zijn 
kunnen ze worden gelist, gerunt en gesaved worden. 

Belangrijk: De dataregels kunnen gewoon gesaved 
worden als ze klaar zijn. Wil men echter de datare- 
gels weer inladen dan moet men eerst de drie vol¬ 
gende pokes intypen: 

poke43,65 : poke44,63 : poke16192,0 

Gebruiksaanwijzing kleurmode: 

Kleuren-Gebruik de joystick in poort twee en druk op 
de vuurknop. 

Veranderen verfkleur-Druk op de F5 en de 

achtergrondkleur zal veranderen. Bij het indrukken 
van de vuurknop zal de kleur zichtbaar worden. 
Veranderen iijnkleur-Zet de cursor op de lijn. Druk 
op de F3 en de voorgrondkleur zal veranderen. Bij 
het indrukken van de vuurknop wordt de kleur zicht¬ 
baar. 

Naar tekenmode-Druk op de F1. 


Tip van Rob nr. 1: 

Programma-Maker kan niet meer gesaved worden 
als het gerund is (geweest). Dus eerst het program¬ 
ma saven en dan pas gaan gebruiken. 

Tip van Rob nr. 2: 

Programma-maker kan niet meer (opnieuw) geladen 
worden als de dataregels in de computer staan, of 
hebben gestaan. Als men de computer een keer 
ult/aan zet of de resetknop bedient, of de volgende 
twee pokes intypt: poke43,1 : poke44,8 dan kan men 
programma-maker wel weer gewoon laden. 

Tip van Rob nr. 3: 

Voor men de dataregels gaat maken moet men eerst 
de tekst onderaan het hiresscherm wissen. Deze 
tekst over de funktietoetsen komt anders ook in de 
dataregels te staan. 

Tip van Rob nr. 4: 

Als het programma is gestopt met de RUN/STOP 
toets dan zal er allemaal onzin op het scherm ver¬ 
schijnen. U kunt deze onzin weer kwijt raken door 
blind in te typen: 
poke53272,21 :poke53265,27 

1 gotolO 

2 rem** programma-maker c64 (mds p.e 
.) ** 

3 rem** gemaakt door rob hagelstein 

•kit 

4 poke53272,25:poke53265,187;e=2023: 
t=1024 

5 p=a:reada;ifa>255thenforq=ltoa-256 
:poket,p;t=t+l:nextq;goto5 

6 ifa>-lthenpoket, a:t=t-l-l :goto5 

7 q=t;fort=qtoe:poket,p:nextt 

8 ifa>-3thene=16191:t=8192;goto5 

9 pokel98,0:waitl98,l:poke53272,21:p 
oke53265,27:end 
























10 

printchr$(14):poke45,0:poke46,156: 


5 


run 6 7 

51 

gosub62:pokej+3,255andr:pokej+4, r/ 

11 

£ort=49152to49178:reada:poket,a;ne 


256 -.pokej+S, 131: r=r+l 


xtt 

52 

1=0:k=j+l:j=j+6:goto45 

12 

p=8192:input"[CRSR-DOWN]Wilt[SPACE 

53 

x=l:p=256:pokej,45:pokej+1, 48+(3an 


]u[SPACE]een[SPACE]s choon[SPACE]be 


ds):ife=16191then55 


eld[SPACE][j/n][SPACE]a$;ifa$="n 

54 

t=8191:c=t:e=16191:pokej+2,44:j=j+ 


"thenl4 


3:s=255:goto45 

13 

sys49152 

55 

j=j+2:gosub62:pokej+1,0:pokej+2,0: 

14 

a=230:poke53272,25:poke53265,187:f 


j=j+3 


ort=1024to2023:poket,a:nextt 

56 

poke53272,21:poke53265,27:a=int(j/ 

15 

x=156:y=100:a$="fl=kleur[SPACE]f3= 


256):pokel024,a 


cursor[SPACE]f5=data[SPACE]f7=wiss 

57 

poke45,j-a*256:poke46,peek(1024):p 


en":gosub58:gotolS 


oke43,65:poke44,63:list 

! 

x=-x*(x<320)-(x<0)*320:y=-y*(y<200 

58 

poke56334,0:pokel,51:fort=lto36:q= 

i 

)-(y<0)*200 


8*asc(mid$(a$,t,1)):forj=0to7 

I 17 

gosub60:q=p:ifj>lllthenpokep,n 

59 

pokel5872+j+8*t,peek(55296+j+q):ne 

! 18 

gosub61:ifc=0thenpokeq/8,a:a=peek( 


xtj,t:pokel,55:poke56334, 1:return 

1 

p/8):pokep/8,14 

60 

j=peek (56320) :x=x-(jand8)/8+(jand4 


pokep,nor2~(notxand7):geta$:ifa$=" 


)/4:y=y-(jand2)/2+(jandl):return 

1 

"thenl7 

61 

p=8192or(xand504)+(yand7)+(yand248 

i 20 

k=asc(a$):ifk=157ork=29thenx=x+8-( 


)*40:n=peek(p):return 

1 

16andk/8):gotol6 

62 

pokej,0:a=int((j+1)/256)rpokek, j+1 

1 21 

ifk=145ork=17theny=y+8-(16andk/8): 


-a*256:pokek+l,a:return 

1 

gotol6 

63 

q=peek(t+1)+56:ifq>255thena=l 

22 

pokep,n:ifc=0thenpokep/8,a 

64 

poket+14137,255andq:poket+14138, 63 

23 

ifk=42ork=94thenr=r+l:onrgoto28,29 


+a:t=t+2:return 

24 

onabs (k-132)goto34,40,41,13 

65 

dataieo,0,169,32,133,71,169,0,133, 

1 25 

poke56334,0:pokel,51:p=pandl6376:i 


70,145,70,230,70,197,70,208,248,23 

il 

fk=20thenk=32:x=x-16 


0 

1 

k=k+(k>192)*192;fort=0to7:pokep+t. 

66 

data71,169,64,197,71,208,236,96 

j 

peek(55296+t+8*k):nextt 

67 

print"PROGRAMMA-MAKER[2xSPACE](Mac 

1 27 

x=x+8:gosubei:pokel,55:poke56334,1 


[SPACE]Doedel[SPACE]Software)[CRSR 

f 

:n=peek(p):a=peek(p/8):gotol6 


-DOWN]" 

28 

xa=x:ya=y:n=nor2~(notxand7);gotol7 

68 

print "Prograituna-maker [SPACE] is [SPA 

29 

xb=xa-x:yb=ya-y:s=sqr(xb~2+yb~2):r 


CE]een[SPACE]tekenprogramma" 

I 30 

=6.3:ifs=0then33 

69 

print"dat[SPACE]zelf[SPACE]de[SPAC 

ifk=42thenr=r-l/s:x=xa+l.05*s*sin( 


E]dataregels[SPACE]van[SPACE]de[SP 


r):y=ya+.95*s*cos(r) 


ACE]gemaakte" 

j 31 

ifk=94thenr=r-6.3/s:x=x+xb/s:y=y+y 

70 

print "tekening [SPACE] progrcimmeerd. 

; 

b/s 


[CRSR-DOWN]" 

1 32 

gosub61:pokep,nor2~(notxand7):ifr> 

71 

print"GEBRUIKSAANWIJZING[CRSR-DOWN 


0then30 


] " 

! 33 

r=0:a=peek(p/8);gotol7 

72 

print"Schetsen[2XSPACE]-[SPACE]Geb 

34 

x=l9:y=12:k=l0:a$="fl=tekenen[SPAC 


ruik[SPACE]j oystik[SPACE]in[SPACE] 


E]f3=lijnkleur[SPACE]f5=verfkleur" 


poort[SPACE]2." 

35 

:gosub58 

73 

print"Lij nen[4xSPACE]-[SPACE]Druk[ 

s=1024+x+40*y:m=s*8+4:t=peek(m):po 


SPACE]voor[SPACE]beginpunt[SPACE]e 


kern,255:gosuböO 


n" 

36 

x=-x*(x<40)-(x<0)*40:y=-y*(y<25)- ( 

74 

print"[12xSPACE]eindpunt[SPACE]op[ 


y<0)*25:if(jandl6)=0thenpokes, k 


SPACE] [~] . " 

37 

pokem, t:geta$:ifa$=""then35 

75 

prinf'Cirkels[3xSPACE]-[SPACE]Druk 

38 

m=asc(a$):ifm=133thenl5 


[SPACE]voor[SPACE]middelpunt[SPACE 

39 

k=(k-(m=135)andl5)+(k-16*(m=134)an 


] en" 


d240):goto35 

76 

print"[12xSPACE]omtrek[3xSPACE]op[ 

40 

c=notc:a=peek(p/8):gotol7 


SPACE][*]." 

41 

a=0:t=2056 

77 

print"Karakters[SPACE]-[SPACE]Typ[ 

42 

p=peek(t):poket+14136,p:ifp+peek(t 


SPACE]letter/cijfer[SPACE]toets[SP 


+4)=0thengosub63 


ACE]in." 

43 

t=t+l:ifp<>128then42 

78 

print"CRSR[SPACE]best[SPACE]-[SPAC 

44 

j=t+14136:k=j+1:t=1023:c=t:r=500:e 


E]Druk[SPACE]op[SPACE]cursortoetse 


=2023:p=256:s=l:goto51 


n. " 

45 

poket,s:t=t+l:q=p;p=peek(t):ift>et 

79 

prinf'Wis[SPACE]punt[2xSPACE]-[SPA 

46 

hen53 


CE]Druk[SPACE]op[SPACE]spatiebalk" 

ifp=qthenx=0:goto45 

80 

print"[12xSPACE]of[SPACE]op[SPACE] 

47 

ifx=0thenp=t-c+255 


F7[SPACE]voor[SPACE]nieuw[SPACE]sc 

48 

a$=str$(p):forx=2tolen(a$);pokej,a 


herm.[CRSR-DOWN]" 

49 

SC(mid$(a$,x,1)):j=j+l:nextx 

81 

print"Als[SPACE]U[SPACE]op[SPACE]F 

l=l+len(a$):ifp>255thenp=peek(t):p 


5[SPACE]drukt[SPACE]z al[SPACE]de[S 

50 

okej,44:j=j+l:goto48 


PACE]computer[SPACE]de" / 

c=t:ifl<62thenpokej,44:j=j+1: goto4 

82 

prinf'dataregels [SPACE] gaan [SPACE] |„' 






















83 


Candy-Cat 64 


programmeren.[SPACE]Hierbij" 
print"wordt[SPACE]langzaam[SPACE]h 
et[SPACE]scherm[SPACE]gewist.[SPAC 
E]Als" 

84 print"de[SPACE]dataregels[SPACE]kl 
aar[SPACE]zijn[SPACE]kunt[SPACE]U[ 
SPACE]deze" 

85 print"gewoon[SPACE]Saven[SPACE]of[ 
SPACE]Runnen.":gotoll 

86 rem dataregels weer laden na intyp 
en 

87 rem poke43,65:poke44,63:pokel6192, 

0 

EINDE LISTING programma maker _ 


Checksum rogramma maker 


REGEL 

1 

234 

REGEL 

44 

27 

REGEL 

2 

77 

REGEL 

45 

39 

REGEL 

3 

44 

REGEL 

46 

235 

REGEL 

4 

206 

REGEL 

47 

246 

REGEL 

5 

54 

REGEL 

48 

190 

REGEL 

6 

191 

REGEL 

49 

24 

REGEL 

7 

3 

REGEL 

50 

24 

REGEL 

8 

7 

REGEL 

51 

157 

REGEL 

9 

232 

REGEL 

52 

22 

REGEL 

10 

224 

REGEL 

53 

81 

REGEL 

11 

225 

REGEL 

54 

126 

REGEL 

12 

150 

REGEL 

55 

83 

REGEL 

13 

163 

REGEL 

56 

96 

REGEL 

14 

38 

REGEL 

57 

94 

REGEL 

15 

161 

REGEL 

58 

226 

REGEL 

16 

124 

REGEL 

59 

198 

REGEL 

17 

219 

REGEL 

60 

87 

REGEL 

18 

203 

REGEL 

61 

199 

REGEL 

19 

151 

REGEL 

62 

254 

REGEL 

20 

71 

REGEL 

63 

136 

REGEL 

21 

144 

REGEL 

64 

229 

REGEL 

22 

43 

REGEL 

65 

6 

REGEL 

23 

135 

REGEL 

66 

214 

REGEL 

24 

197 

REGEL 

67 

235 

REGEL 

25 

169 

REGEL 

68 

49 

REGEL 

26 

63 

REGEL 

69 

249 

REGEL 

27 

121 

REGEL 

70 

246 

REGEL 

28 

252 

REGEL 

71 

60 

REGEL 

29 

210 

REGEL 

72 

40 

REGEL 

30 

80 

REGEL 

73 

133 

REGEL 

31 

247 

REGEL 

74 

39 

REGEL 

32 

88 

REGEL 

75 

28 

REGEL 

33 

212 

REGEL 

76 

94 

REGEL 

34 

15 

REGEL 

77 

181 

REGEL 

35 

226 

REGEL 

78 

245 

REGEL 

36 

36 

REGEL 

79 

249 

REGEL 

37 

211 

REGEL 

80 

221 

REGEL 

38 

227 

REGEL 

81 

158 

REGEL 

39 

158 

REGEL 

82 

10 

REGEL 

40 

128 

REGEL 

83 

188 

REGEL 

41 

48 

REGEL 

84 

39 

REGEL 

42 

54 

REGEL 

85 

231 

REGEL 

43 

86 

REGEL 

86 

184 



De programmeur van dit spel is de Heer Y.S. Kasmin 
uit Amsterdam. De bedoeling van dit spel is om tot de 
hoogst ronde te komen. Per ronde moeten er 25 can- 
dy’s worden verorberd om in de volgende ronde te 
komen. In het spel heeft men drie tegenstanders, 
waarvan er twee erg sloom zijn, maar voor nummer 
drie blijft het uitkijken. Het spel is volgens de maker 
niet moeilijk, maar makkelijk is het zeker ook niet. 


1 

rem 

**★******★★*★**** 

2 

rem 

** candy-cat ** 

3 

rem 

_ _ 

--.-. 7 ^ 

4 

rem 

*door:y.s.kasmin* 

5 

rem 

i( -- 


6 

rem 

* (c)-1988-(c) * 

7 

rem 

■k'k'kicickifkickickick-ieiric 

8 

rem 

* commodore-64 * 

9 

rem 

iririfkickidckifkififkiticif 


100 ifpeek(778)=67then:rename:rem powe 
r cartridge uit met 'quit' ******* 
★*****★★★ 

105 ifpeek(778)<>79gotol20 
110 print"[SHIFT-CLR][3xCRSR-DOWN][CTR 
L 8]u[SPACE]moet[SPACE]eerst[SPACE 
]de[SPACE]'final[SPACE]cartridge' [ 
SPACE]uitschakelen[SPACE]met[SPACE 
]'kill'." 

115 print"[2xCRSR-DOWN]daarna[SPACE]ty 
pt[SPACE]u[SPACE]'run'[SPACE]+[SPA 
CE]return.":end 

120 poke788,52:poke792,193:printchr$(1 
42)chr$(8) 

125 goto580 

130 print"[SHIFT-CLR]":ro=l:ct=3 
135 gosub520:s=54272 

140 px=15;py=12:bx=px:by=py:cl=6:yl=ll 

:wl=cl:w2=yl:c2=22:y2=21:w3=c2:w4= 
y2 

145 c3=32:y3=8:w5=c3:w6=y3:sc=1024:cc= 

55296:cs=0:gosub415 

150 rem ********** hoofdlus ********* 

155 j=peek(56320):pokes+l,24 

160 if j=123 then px=px-l 

165 if j=119 then px=px+l 

170 if j=125 then py=py+l 

175 if j=126 then py=py-l 

180 ifj<>127thenpokes+4,33 

185 b=peek(sc+px+40*py) 

190 ifb=36thenpx=bx:py=by 
195 ifb=37thenls=ls+2:cs=cs+l:gosub510 
200 ifb=33orb=35orb=38thenct=ct-l;gosu 
b505 

205 b=0;pokes+4,32 

210 gosub285:b=0:rem ** monster 1 ** 

215 gosub330:b=0;rem ** monster 2 ** 

220 gosub375:b=0:rem ** monster 3 ** 

225 rem ** bepaal richting monster 1 * 

★ 

230 r=int(10*rnd(0)):ifr>4thenbl=int(4 
*rnd(0)+l) 

235 rem ** bepaal richting monster 2 * 
* 

240 r=int(10*rnd(0)):ifr<7thenb2=int(4 
*rnd(0)+1) 

245 rem *** plot karakters **** 

250 pokesc+bx+40*by,32:pokesc+px+40*py 
,34:pokecc+px+40*py, 10 
255 pokesc+wl+40*w2,32:pokesc+cl+40*yl 















print-out print-out print-out print-out print-out 


I ,33:pokecc+cl+40*yl, 2 

260 pokesc+w3+40*w4,32:pokesc+c2+40*y2 
,35:pokecc+c2+40*y2, 7 
265 pokesc+w5+40*w6,32:pokesc+c3+40*y3 
,38;pokecc+c3+40*y3, 8 
270 bx=px:by=py;wl=cl:w2=yl:w3=c2:w4=y 

2:w5=c3:w6=y3 
275 gotol55 

280 rem **** beweeg monster -1- **** 

285 if bl=l then yl=yl-l 

290 if bl=2 then yl=yl+l 

295 if bl=3 then cl=cl-l 

300 if bl=4 then cl=cl+l 

305 b=peek(sc+ol+40*yl) 

310 ifb=36orb=37thencl=wl:yl=w2 
315 ifb=34thenct=ct-l:gosub505 
320 return 

325 rem **** beweeg monster -2- **** 

330 if b2=l then y2=y2-l 

335 if b2=2 then y2=y2+l 

340 if b2=3 then c2=c2-l 

345 if b2=4 then c2=c2+l 

350 b=peek(sc+c2+40*y2) 

355 ifb=36orb=37thenc2=w3:y2=w4 
j 360 ifb=34thenct=ct-l:gosub505 
365 return 

370 rem **** beweeg monster -3- **** 
375 h3=sgn(px-c3):v3=sgn(py-y3) 

380 c3=c3+h3:b=peek(sc+c3+40*y3) 

385 ifb=36orb=37thenifh3<>0thenc3=c3-h 
3 

390 y3=y3+v3;b=peek(sc+c3+40*y3) 

395 ifb=36orb=37thenify3<>0theny3=y3-v 
3 

400 ifb=34thenct=ct-l:gosub505 
405 return 

410 rem **** status tonen **** 

415 print"[HOME][CRSR-DOWN][CRSR-RIGHT 
][CTRL-2]cancat:";ct;"[2xSPACE]can 
dy's:";cs;"[2xSPACE]score;"Is 
420 ifct=0goto455 
425 ifcs<>25thenreturn 
430 ro=ro+l 

435 print"[SHIFT-CLR][HOME]"; 

440 printtab(129)"[CTRL-6]verder[SPACE 
]naar[SPACE]ronde:";ro:forp=0to200 
0:next:cs=0 

445 print"[SHIFT-CLR]":gotol35 
450 rem **** game-over **** 

455 print"[SHIFT-CLR][HOME]"; 

460 pokes+4,0iprinttab(9)"[12xCRSR-DOW 
N][CTRL-2]*****[SPACE][C0M-6]g[CTR 
L 2]a[CTRL-4]m[CTRL-5]e-[COM-6]o[C 
OM 2]v[COM-3]e[COM-5]r[SPACE][CTRL 
2 ]*****" 

465 goto630 

470 forx=ltol5step.5:getk$:ifk$=chr$(1 
33)thensys64738 

475 print"[HOME][16xCRSR-DOWN][9xCRSR- 
RIGHT]score:"Is"[3xSPACE]ronde:"ro 
480 print"[2xCRSR-DOWN][3xCRSR-RIGHT]d 
ruk[SPACE]op[SPACE]vuurknop[SPACE] 
om[SPACE]te[SPACE]beginnen." 

485 print"[2xCRSR-DOWN][llxCRSR-RIGHT] 
[CTRL-8][fl]-stoppen." 

I 490 ifpeek(56320)=lllthenclr:runl30 
495 poke646,int(x):next:goto470 

500 rem *** geluiden *** 

505 pokes+4,129:forx=255tolstep-12:pok 
es+1,X:nextx:pokes+4,32:goto415 
510 pokes+4,33:forx=32tol26stepl2:poke 


s+1,X:next:pokes+4,16;goto415 
515 rem ******* random-speelveld ***** 
★ 

520 forx=1024tol063:pokex,36:pokex+24* 

40,36 

525 pokex+54272,9;pokex+40*24+54272, 9: 

next 

530 fory=1024tol944step40:pokey, 36:pok 
ey+39,36 

535 pokey+54272,9:pokey+39+54272,9:nex 

t 

540 forx=1025tol062:pokex+40*2,36:poke 

x+40*2+54272,9:next 
545 fort=0tol 

550 forx=4to36step2:r=int(20*rnd(0)+3) 

555 fory=rtoint(23*rnd(0)):pokel024+x+ 
40*y,36:poke55296+x+40*y,4:nexty,x 
/t 

560 fori=lto40 

565 r=int(879*rnd(0)):ifpeek(1104+r)=3 
6then565 

570 pokell04+r,37:pokell04+54272+r, 5:n 
ext:return 

575 rem ******* initialisatie ******** 
580 print"[SHIFT-CLR][CTRL-8]":poke532 
80,6:poke53281,6 

585 printtab(209)"even[SPACE]uw[SPACE] 
geduld[SPACE]a.u.b" 

590 poke 56334,peek(56334)and254:pokel 
,peek(1)and251 

595 for o=0to 511:pokel2288+c,peek(53 
248+c);next 

600 poke 1,peek (1)or4:poke 56334,peek( 
56334)orl 

605 for ch=33to38:forb=0to7:readd:poke 
12288+(8*ch)+b,d:nextb,ch:clr:s=54 
272 

610 forx=stos+24:pokex,0:next 
615 pokes+0,67:pokes+6,240:pokes+24,15 
:poke53272,29 

620 rem **** titelpagina **** 

625 poke53281,0:poke53280,0:print"[SHI 

FT CLR]" 

630 print"[HOME][2xCRSR-RIGHT][CTRL-2] 

candy-cat[3xSPACE]by[2xSPACE]y.s.k 
asmin[SPACE](c)[SPACE]1988" 

635 print"[2xCRSR-DOWN][2xCRSR-RIGHT][ 

CTRL-8]can-cat...[COM-3]"chr$(34) 

640 print"[HOME][3xCRSR-DOWN][CTRL-8]" 

645 printtab(28)"candy...[CTRL-6]%" 

650 printtab(14)"[CRSR-DOWN][CTRL-8]mo 

nster[SPACE]1...[CTRL-3]!" 

655 printtab(14)"[CRSR-DOWN][CTRL-8]mo 

nster[SPACE]2...[CTRL-8]#" 

660 printtab(14)"[CRSR-DOWN][CTRL-8]mo 

nster[SPACE]3...[COM-l]&" 

665 goto470 

670 data 24,60,126,219,255,102,126,231 

675 data 231,126,255,219,255,102,60,23 

1 

680 data 231,36,255,90,255,255,102,126 

685 data 255,195,165,153,153,165,195,2 

55 

690 data 0,0,60,255,231,60,0,0 

695 data 126,219,153,255,102,126,195,1 

65 


EINDE LISTING candy-cat 





















1 Checksum Candy-cat 

REGEL 

1 

89 

REGEL 

390 

58 

REGEL 

2 

171 

REGEL 

395 

237 

REGEL 

3 

134 

REGEL 

400 

170 

REGEL 

4 

28 

REGEL 

405 

142 

REGEL 

5 

134 

REGEL 

410 

71 

REGEL 

6 

63 

REGEL 

415 

32 

REGEL 

7 

89 

REGEL 

420 

43 

REGEL 

8 

31 

REGEL 

425 

33 

REGEL 

9 

89 

REGEL 

430 

207 

REGEL 

100 

16 

REGEL 

435 

190 

REGEL 

105 

52 

REGEL 

440 

156 

REGEL 

110 

50 

REGEL 

445 

204 

REGEL 

115 

130 

REGEL 

450 

98 

REGEL 

120 

223 

REGEL 

455 

190 

REGEL 

125 

38 

REGEL 

460 

114 

REGEL 

130 

228 

REGEL 

465 

34 

REGEL 

135 

103 

REGEL 

470 

2 

REGEL 

140 

247 

REGEL 

475 

241 

REGEL 

145 

9 

REGEL 

480 

94 

REGEL 

150 

17 

REGEL 

485 

143 

REGEL 

155 

160 

REGEL 

490 

126 

REGEL 

160 

162 

REGEL 

495 

219 

REGEL 

165 

166 

REGEL 

500 

216 

REGEL 

170 

165 

REGEL 

505 

4 

REGEL 

175 

167 

REGEL 

510 

254 

REGEL 

180 

212 

REGEL 

515 

67 

REGEL 

185 

82 

REGEL 

520 

92 

REGEL 

190 

179 

REGEL 

525 

26 

REGEL 

195 

172 

REGEL 

530 

106 

REGEL 

200 

196 

REGEL 

535 

18 

REGEL 

205 

183 

REGEL 

540 

78 

REGEL 

210 

84 

REGEL 

545 

140 

REGEL 

215 

76 

REGEL 

550 

18 

REGEL 

220 

86 

REGEL 

555 

129 

REGEL 

225 

141 

REGEL 

560 

181 

REGEL 

230 

24 

REGEL 

565 

150 

REGEL 

235 

142 

REGEL 

570 

21 

REGEL 

240 

30 

REGEL 

575 

206 

REGEL 

245 

156 

REGEL 

580 

121 

REGEL 

250 

159 

REGEL 

585 

7 

REGEL 

255 

165 

REGEL 

590 

227 

REGEL 

260 

180 

REGEL 

595 

146 

REGEL 

265 

192 

REGEL 

600 

23 

REGEL 

270 

235 

REGEL 

605 

92 

REGEL 

275 

36 

REGEL 

610 

38 

REGEL 

280 

65 

REGEL 

615 

84 

REGEL 

285 

42 

REGEL 

620 

17 

REGEL 

290 

42 

REGEL 

625 

207 

REGEL 

295 

0 

REGEL 

630 

119 

REGEL 

300 

0 

REGEL 

635 

77 

REGEL 

305 

255 

REGEL 

640 

252 

REGEL 

310 

74 

REGEL 

645 

79 

REGEL 

315 

170 

REGEL 

650 

221 

REGEL 

320 

142 

REGEL 

655 

98 

REGEL 

325 

66 

REGEL 

660 

73 

REGEL 

330 

45 

REGEL 

665 

36 

REGEL 

335 

45 

REGEL 

670 

22 

REGEL 

340 

3 

REGEL 

675 

73 

REGEL 

345 

3 

REGEL 

680 

31 

REGEL 

350 

1 

REGEL 

685 

151 

REGEL 

355 

80 

REGEL 

690 

117 

REGEL 

360 

170 

REGEL 

695 

136 

REGEL 

365 

142 




REGEL 

370 

67 




REGEL 

375 

85 




REGEL 

380 

0 




REGEL 

385 

162 





Eeuwigdurende kalender 64 


Wilt U weten op wat voor dag 23 maart 1901 viel, of 
wilt U weten wat voor dag het is op 31 december 
1999, het is geen probleem meer met het programma 
van W. R. Mulder uit Castricum. U kunt alle gegevens 
krijgen over de dagen uit de 20e eeuw. 

10 rem ****************************** 
********************************** 

★ ★★ 

20 rem *** bepalen van de naam van de 

dag waarop een op te geven datum 

30 rem *** van af 1.1.1900 

tot en met 31.12.1999 
* ★ * 

40 r^m *** is geval1 



rem *** 

en of zal vallen 
★ ★ ★ 


ricum 
★ ★ * 


w.r.mulder, cast 


rem *** feb 

ruari 1988 

•kick 

rem ****************************** 
★★★*★****★**★*★*★***★★*********★*★ 

ao$="" 

goto 10000:rem hoofdprogramma 
rem ***** initialiseren ** 

kkkkkkkkkkkkkkkkitkidckkkkififkic 

if ao$<>"" goto 1310 

dim md$(12,2) , ft$(6) ,dn$(7) :rem ma 

andnamen, fouttexten en dagnamen 

for i=0to 12 

: for j=l to 2 

: read md$(i,j) 

: next 
next 

for i=l to 6 
: read ft$(i) 
next 

for i=l to 7 
; read dn$(i) 
next 

print chr$(14):rem onderkast lette 
rs 

vs%=0:rem vlag schrikkeljaar 

f%=0:rem foutteller 

return 

data "[SPACE]", 0,januari,31,februa 
ri,28,maart,31,april,30,mei,31,jun 
i,"30" 

data juli,31,augustus,31,september 
,30,october,31,november,30,decembe 
r,"31" 


11 data "ingave[SPACEJmoet[SPACE]zijn 
[SPACE]6[SPACE]posities." 

12 data "maandnummer[SPACE]bestaat[SP 
ACE]niet." 

3 data "februari[SPACE]heeft[SPACE]n 
iet[SPACE]meer[SPACE]dan[SPACE]2 9[ 
3xSPACE]dagen[SPACE]in[SPACE]dit[S 
PACE]jaar." 

4 data "februari[SPACE]heeft[SPACE]n 
iet[SPACE]meer[SPACE]dan[SPACE]28[ 















1945 


1946 

1970 

1971 

2000 

2005 

2010 

2020 


2030 


2040 

2045 

2050 


2060 

2070 

2900 

3000 

3010 

3020 

3030 

3050 

3090 

3100 


3110 

3120 

3140 

3900 

4000 

4100 

4110 

4120 

4130 

4200 

4210 

4220 

4230 

4240 

4250 

4300 

4310 

4320 

4330 

4800 
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3xSPACE]dagen[SPACE]in[SPACE]dit[S 
PAGE]jaar." 

data "deze[SPACE]maand[SPACE]heeft 
[SPACE]minder[SPACE]dagen[SPACE]da 
n" 

data "alleen[SPACE]cijfers[SPACE]i 
nvoeren." 

data zondag,maandag,dinsdag,woensd 
ag,donderdag,vrijdag,"zaterdag" 
rem ***** datum ingeven ** 

'k'k’k'kifk-kicicicir'kickick'kickit’k’k’kit’kifk’k 

if f%<>0goto 2045 
print chr$(147) 

print"[SPACE]Berekenen[SPACE]van[S 
PACE]de[SPACE]dagnaam[SPACE]van[SP 
ACE]een[SPACE]op[SPACE]te" 
print" [ SPACE ] geven [ SPACE ] datvim [ SPA 
CE]vanaf[SPACE]1[SPACE]januari[SPA 
CE]1900[SPACE]tot" 

print"[SPACE]en[SPACE]met[SPACE]31 
[SPACE]december[SPACE]1999." 
f%=0:vs%=0 

print:print"[SPACE]Geef[SPACE]de [S 
PACE]datum[SPACE]als[SPACE]ddmmj j. 

n 

print;input"[SPACE]Welke[SPACE]dat 
um";dt$ 

if len(dt$)<>6 then f%=l:gosub 700 
0:printchr$(147):goto 2045 
return 

rem ***** datum controle ** 

******★***★★★★**★**★**★★***★ 
for i=l to 6 

: if mid$(dt$,i,1)<"0" or mid$(dt$ 

,i,l)>"9" then i=9 

next 

: if i=10then f%=6:gosub 7000:got 
o 3900 

d$=left$(dt$,2):m$=mid$(dt$,3,2):j 
$=right$(dt$,2) 

if val(j$)/4=int(val(j$)/4)and j$< 
>"00" then vs%=l:rem vlag schrik.j 

if m$>"12" then f%=2:gosub 7000:go 
to 3900 

if m$="02" and d$>"28" then gosub 
8000:goto 3900 

if d$>md$(val(m$),2) then f%=5:gos 

ub 7000 

return 

rem ***** dagnaam berekenen 

rem ***** a. ex jaar 

dl%=l-vs%:rem dagnaaml 
dl%=dl%+val(j$)-(int(val(j$)/7))*7 
d2%=dl%+(int(val(j$)/4)) 
rem ***** b. ex maand 

*★*★*★★*★*★★★★★★★★*★*★*★**** 

d3%=d2% 

for i=0to val(m$)-l 
: d3%=d3%+val(md$(i,2)) 
next 

if m$>"02" then d3%=d3%+vs% 
rem ***** b. ex dag 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★ 

d4%=d3% 

d4%=d4%+val(d$)-(int(val(d$)/7))*7 
if d4%>7 then d4%=d4%-7:goto 4330 


4900 return 

5000 rem ***** dagnaam naar scherm 
************************** 

5010 print 

5020 print"[SPACE]De[SPACE]datum[SPACE] 

";d$;"[SPACE]";md$(val(m$),1);"[SP 
ACE]19";j $;"[SPACE]valt[SPACE]op[S 
PACE]een" 

5030 print:printtab(16);"[CTRL-9]";dn$( 
d4%);"[CTRL-0]":rem invers printen 
5900 return 

7000 rem ***** foutroutine ** 

★ ★Vf************************* 

7010 print:print"[SPACE]Fout:[SPACE]";f 
t$(f%); 

7015 if f%=5 then print "[SPACE]";d$; 
7020 print:print:printtab(20)"[CTRL-9]D 
ruk[SPACE]een[SPACE]toets [CTRL-0] " 

:rem invers printen 
7030 get aw$:if aw$="" goto 7030 
7100 return 

8000 rem ***** controle februari 

★★*★★*★*★**★***★**★★★*★★★★★★ 

8010 if d$>"29" and vs%=l then f%=3:gos 
ub 7000:goto 8900 

8020 if vs%<>l then f%=4:gosub 7000 
8900 return 

10000 rem ***** hoofdprograunma ** 

ickifkifkickifickickif'kickickickickitickick 

10010 gosub 1000:rem initialiseren 
10020 gosub 2000:if f%<>0then printchr$ 
(147):goto 10020:rem ingeven 
10030 gosub 3000:if f%<>0then printchr$ 
(147):goto 10020:rem controle 
10040 gosub 4000:rem dagnaam berekenen 
10050 gosub 5000:rem dagnaam naar scherm 
10060 print:print:printtab(20)"[CTRL-9]N 
og[SPACE]eens?[SPACE](j/n)":rem in 
vers printen 

10070 get ao$:if ao$="" goto 10070 
10080 if ao$="j" goto 10000 
10090 if ao$<>"n" goto 10070 
10900 end 

EINDE LISTING eeuwigdurende kalender _ 


week 

17 

18 

19 

20 

21 

22 

22 

23 

24 

25 

26 

ma 


2 

9 

16 

23 

30 


6 

13 

20 

27 

dl 


3 

10 

17 

24 

31 


7 

14 

21 

28 

WO 


4 

11 

18 

25 


1 

8 

15 

22 

29 

do 


5 

12 

19 

26 


2 

9 

16 

23 

30 

vr 


6 

13 

20 

27 


3 

10 

17 

24 


za 


7 

14 

21 

28 


4 

11 

18 

25 


zo 

1 

8 

15 

22 

29 


5 

12 

19 

26 


week 

35 

36 

37 

38 

39 

39 

40 

41 42 

43 

44 

ma 


5 

1 

2 

19 

26 


3 

10 17 

24 

31 

di 


6 

1 

3 

20 

27 


4 

11 18 

25 


WO 


7 

1 

4 

21 

28 


5 

12 19 

26 


do 

1 

8 

1 

5 

22 

29 


6 

13 20 

27 


vr 

2 

9 

1 

6 

23 

30 


7 

14 21 

28 


za 

3 

10 

1 

7 

24 


1 

8 

15 22 

29 


zo 

4 

11 

1 

8 

25 


2 

9 

16 23 

30 


















print-out print-out print-out print-out print-out 


Checksum Eeuwige kalender 


REGEL 

10 

141 

REGEL 

3020 

247 

REGEL 

20 

17 

REGEL 

3030 

130 

REGEL 

30 

238 

REGEL 

3050 

56 

REGEL 

40 

179 

REGEL 

3090 

204 

REGEL 

50 

143 

REGEL 

3100 

231 

REGEL 

60 

154 

REGEL 

3110 

103 

REGEL 

70 

181 

REGEL 

3120 

85 

REGEL 

80 

141 

REGEL 

3140 

22 

REGEL 

100 

58 

REGEL 

3900 

142 

REGEL 

110 

170 

REGEL 
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113 

REGEL 

200 

89 

REGEL 

4100 

35 

REGEL 
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29 

REGEL 

4110 

217 

REGEL 
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53 

REGEL 

4120 

97 

REGEL 

1010 

209 

REGEL 

4130 

77 

REGEL 

1020 

179 

REGEL 

4200 

103 

REGEL 

1030 
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REGEL 

4210 

233 

REGEL 

1040 

134 

REGEL 

4220 

179 

REGEL 

1050 

188 

REGEL 

4230 

145 

REGEL 

1060 

130 
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4240 

130 
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1100 

135 

REGEL 

4250 

92 

REGEL 

1110 

25 

REGEL 

4300 

210 
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1120 

130 
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1200 
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17 
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1220 

130 

REGEL 
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97 
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1320 
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5020 
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224 
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142 
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58 
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REGEL 
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61 
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60 

REGEL 
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173 

REGEL 

7100 

142 

REGEL 
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18 
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REGEL 
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58 

REGEL 
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204 

REGEL 
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REGEL 

8020 

116 

REGEL 
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REGEL 

8900 

142 

REGEL 
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REGEL 
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99 

REGEL 
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77 

REGEL 
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231 

REGEL 
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56 

REGEL 

10020 

146 

REGEL 

2030 

53 

REGEL 

10030 

237 

REGEL 

2040 

251 

REGEL 

10040 

146 

REGEL 

2045 

55 

REGEL 

10050 

232 

REGEL 

2050 

15 

REGEL 

10060 

105 

REGEL 

2060 

6 

REGEL 

10070 

69 

REGEL 

2070 

141 

REGEL 

10080 

249 

REGEL 

2900 

142 

REGEL 

10090 

182 

REGEL 

3000 

46 

REGEL 

10900 

12x 

REGEL 

3010 

135 





Swiftbase 64 


Swiftbase is een database, met een aantal grote 
voordelen. Allereerst het is volledig menugestuurd, 
dit maakt het gebruik zeer eenvoudig en de kans op 
fouten is hierdoor zeer klein. Een tweede voordeel 
het kan zowel met een diskdrive als met een 
cassetterecorder worden gebruikt. Een uitleg is hier¬ 
bij helemaal overbodig zodat we alleen de naam van 
de maker nog behoeven te vermelden, Y.S. Kasmin 
uit Amsterdam. 

1 rem ****************************** 






rem 

★ ★ ★ 

★ ★ ★ 

* 

swiftbase 1.0* 

rem 

★ ★ ★ 

★ 

commodore 64 * 

rem 

*** 



★ ★ ★ 

5 rem ***door: y.s.kasmin 

6 rem *** 

* ★ * 

7 rem *** ********************** 

8 rem *** AMSTERDAM 

9 rem ****************************** 

10 gosub2040:rem **** init. **** 

20 rem ************* menu ****** 

30 print"[SHIFT-CLR][HOME][3xSPACE]SW 

IFTBASE[SPACE]1.0[2xSPACE](c)[SHIF 
T SPACE]1988[SHIFT-SPACE]Y.S.KASMI 
N" 

40 print"[CTRL-2][SPACE]************* 

*************************[2xCRSR-D 
OWN]":rem 38x'*' 

50 printtab(12)[CTRL-8]>»[SPACE][C 

OM 1]M[SHIFT-SPACE]E[SHIFT-SPACE]N 
[SHIFT-SPACE]U[CTRL-8][SHIFT-SPACE 
]«<" :printtab(12) " [CTRL-2] ******* 
********[CRSR-DOWN]" 

60 printtab(10)"[COM-7]1>[COM-3]Besta 

nd[SPACE]laden";printtab(10)"[COM 
7]2>[COM-3]Velden[2xSPACE]opstelle 
n" 

70 printtab(10)"[COM-7]3>[COM-3]Recor 

ds[SPACE]zoeken":printtab(10)"[COM 
7]4>[COM-3]Records[SPACE]invoeren 

It 

80 printtab(10)"[COM-7]5>[COM-3]Recor 

ds[SPACE]wij zigen":printtab(10)"[C 
OM 7]6>[COM-3]Records[SPACE]schrap 
pen" 

90 printtab(10)"[COM-7]7>[COM-3]Besta 

nd[SPACE]sorteren":printtab(10)"[C 
OM 7]8>[COM-3]Bestand[SPACE]saven" 
100 printtab(10)"[COM-7]9>[COM-3]Einde 

[ SPACE]programma" 

110 printtab(10)"[CTRL-2]============= 

======":printtab(12)"[CRSR-DOWN][C 

TRL 5]Aantal[SPACE]records:[COM-8] 
[CTRL-9]"; 

120 printmid$(str$(rt%),2) rprinttab(12 

)"[CRSR-DOWN][CTRL-6]Toets[SPACE]u 
w[SPACE]keuze." 

130 fori=3to37:poke55296+i,int(15*rnd( 

1)+1) 

140 k$="":getk$:k=val(k$):ifk=9thengos 

ubl670:goto30 

150 ifk<lork>8thennexti:gotol30 

160 on k gosub 190,320,460,810,920,114 

0,1330,1550,1670:goto30 
170 rem ****************************** 

* 

180 rem ******* bestand laden ******** 

★ 

190 print"[SHIFT-CLR]":ifrt%>0thenbl=l 

:gosubl870:ifd=0thenreturn 
200 print"[SHIFT-CLR][HOME]"; 

210 printtab(11)"[CTRL-9][CTRL-4][SPAC 

E]Bestand[SPACE]laden[SPACE][CTRL 
0][CRSR-DOWN]" 

220 ifde=lthenprint"[3xSPACE]Geef[SPAC 

E]bestandsnaam.::goto260 
230 gosub2130•ifd=lthen250 

240 print"[2xCRSR-DOWN][3xSPACE]Er[SPA 



CommaJon- Ittfo 2;^'9 



: 
































1 print-out print-out print-out print-out print-out 

1 

CE]is[SPACE]geen[SPACE]bestand[SPA 

550 

ifk=3thengoto2 4 5 0 


CE]op[SPACE]deze[SPACE]floppy.":go 

560 

ifk=2then720 


tol730 

570 

print"[SHIFT-CLR][2xCRSR-DOWN]":fo 

250 

print"[5xCRSR-UP]Plaats[SPACE]curs 


ri=ltoav%iprinti"-[SPACE]"vn$(i):n 


or[SPACE]op[SPACE]gewenste[SPACE]b 


exti:print 


estand[2xSPACE]plus[SPACE]een[SPAC 

580 

print "Zoeken[SPACE]op[SPACE]welk[ 


E]return." 


SPACE]veld[SPACE]?.:" ; 

260 

pokel9,1:inputb$;pokel9,0:print:pr 

590 

k$=chr$(0):getk$;k=val(k$):ifk<lor 


int 


k>av%then5 9 0 

270 

openl,de,0,b$;input#l,av%:input#l. 

600 

printk$:print"[CRSR-DOWN]Welke[SPA 


rt% 


CE]"vn$(k)"?.:";;pokel9,1:inputz$; 

280 

fori=ltoav%;input#l,vn$(i):nexti 


pokel9,0:print 

290 

fori=ltort%:forj=ltoav%:input#l,r$ 

610 

fori=ltort%:ifleft$(r$(i,k),len(z$ 


(i, j) :nextj,i 


))=z$thengosub640:ifd=2thenreturn 

300 

closelrprint"[CRSR-DOWN]"tab(9)"Be 

620 

nexti:ifd=0thenprint"[CRSR-DOWN]Is 


stand[SPACE]is[SPACE]geladen.":got 


[SPACE]niet[SPACE]in[SPACE]de ze[SP 


ol730 


ACE]bestand[SPACE]aanwezig.":goto7 

310 

rem ****** velden opzetten ******* 


80 


★ 

630 

goto770 

320 

print"[SHIFT-CLR][HOME]";;ifav%>0t 

640 

print"[SHIFT-CLR][CRSR-DOWN]":d=l: 


hengotol850 


forj=ltoav%:printvn$(j)"[SPACE]:"r 

330 

printtab(ll)"[CTRL-9][CTRL-4][SPAC 


$ (i,j) :nextj:print 


E]Velden[SPACE]opzetten[SPACE][CTR 

650 

printtab(8)"[3xCRSR-DOWN][CTRL-9]P 


L 0][CRSR-DOWN]" 


[CTRL-0] rinten[SPACE][CTRL-9]V[CTR 

1 340 

print"Hoeveel[SPACE]velden[SPACE]w 


L 0]ervolg[SPACE][CTRL-9]M[CTRL-0] 

1 

ilt[SPACE]u.[SPACE](Max.9).:"; 


enu" 

i 350 

k$=chr$(0):getk$:k=val(k$):ifk<lor 

660 

pokel98,0:waitl98,1:getk$ 

i 

k>9then350 

670 

ifk$="P"ork$="p"thengosub2380:retu 

j 360 

printk$:print"[CRSR-DOWN]U[SPACE]k 


rn 

j 

oos[SPACE]voor[SPACE][COM-8][CTRL 

680 

ifk$="V"ork$="v"thenreturn 

i 

! 

9]"k$"[CTRL-0][CTRL-4][SPACE]velde 

690 

ifk$="M"ork$="m"thend=2:return 

! 

! 

n.[CRSR-DOWN]" 

700 

goto660 

1 370 

gosubl790:ifd=0then320 

710 

rem ******* gehele bestand ******* 

i 380 

av%=k:print"[SHIFT-CLR][HOME]Veld. 


★ 

1 

nr.[2xSPACE]Omschrijving.(Max.10[S 

720 

print"[SHIFT-CLR][HOME]"; 

! 

PACE]tekens.)":print 

730 

fori=ltort%:printtab(6)"[CTRL-9][C 

i 390 

fori=ltok:printtab(5)i"[2xSPACE]"; 


TRL 4][SPACE]Gehele[SPACE]bestand] 

i 

:pokel9,1:inputvn$(i):print 


SPACE]doorlopen.[SPACE] [CTRL-0] [2x 

1 400 

iflen(vn$(i))<10orlen(vn$(i))>10th 


CRSR-DOWN]" 

j 

envn$(i)=left$(vn$(i)+"[lOxSPACE]" 

740 

forj=ltoav%:printvn$(j)"[SPACE]:"r 


,10) 


$(i,j) 

i 410 

nexti:pokel9,0:print 

750 

nextj:d=0:gosub650:ifd=2thenreturn 

1 420 

print"[SHIFT-CLR][HOME]Veld.nr.[SP 

760 

print"[SHIFT-CLR][HOME];nexti 


ACE]Omschrijving.[CRSR-DOWN]":fori 

770 

printtab(11)"[2xCRSR-DOWN]Einde[SP 


=ltoav%:printtab(5)i"[SPACE]";vn$( 


ACE]bestand.":gotol730 


i) 

780 

print"[CRSR-DOWN]Wilt[SPACE]u[SPAC 

1 430 

nexti:gosubl790:ifd=0then380 


E]verder[SPACE]zoeken[SPACE]?.([CT 

1 440 

return 


RL 9]J [CTRL-0 ]a/[CTRL-9]N [CTRL-0] e 

1 450 

rem ********** zoeken *********** 


e).":gosubl750:ifd=lthen460 

1 460 

print"[SHIFT-CLR][HOME]";:ifav%>0a 

790 

return 

! 

ndrt%=0thengotol950 

800 

rem ******* records invoeren ***** 

1 470 

d=0:ifav%=0thenl810 


* 

i 480 

printtab(15)"[CTRL-9][CTRL-4][SPAC 

810 

print"[SHIFT-CLR]":ifav%=0thenl810 


E]Zoeken[SPACE] [CTRL-0] [2xCRSR-DOW 

820 

ifrt%=300then2000 


N] " 

830 

rt%=rt%+l 

490 

prinf'Wilt[SPACE]u...:[CRSR-DOWN]" 

840 

print"[SHIFT-CLR][HOME]"; 


:printtab(10)"1-Zoeken[SPACE]per[S 

850 

printtab(10)"[CTRL-9][CTRL-4][SPAC 


PACE]veld.[CRSR-DOWN]":printtab(10 


E]Records[SPACE]Invoeren[SPACE][CT 


); 


RL 0][2xCRSR-DOWN]" 

1 500 

print"2-Gehele[SPACE]bestand[SPACE 

860 

fori=ltoav%:printvn$(i)"[SPACE]:"; 


]doorlopen.[CRSR-DOWN]":printtab(1 


:pokel9,1:inputr$(rt%,i):pokel9,0: 

\ 

0) ; 


print:nexti 

i 510 

print"3-Gehele[SPACE]bestand[SPACE 

870 

printtab(9);:gosubl790:ifd=0then84 

! 

]naar[SPACE]printer.":printtab(10) 


0 


"[CRSR-DOWN][CTRL-9][SPACE][PIJL L 

880 

printtab(5)"[2xCRSR-DOWN]Wilt[SPAC 


INKS[SPACE] [CTRL-0] =Menu." 


E]u[SPACE]verder[SPACE ] invoeren [ SP 

520 

print" [ 2xCRSR-DOWN]Uw [ SPACE]keuze. 


ACE] ? . ( [CTRL-9]J[CTRL-0]a/[CTRL-9] 

N [CTRL-0] ee). ": gosubl750 

530 

k$=chr$(0):getk$:k=val(k$):ifk$="[ 

890 

ifd=lthen820 


PIJL LINKS]"thenreturn 

900 

return 

540 

ifk<lork>3then530 

910 

rem ********* wijzigen *********** 
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* 

920 print"[SHIFT-CLR][HOME]:ifav%>0a 
ndrt%=0thenl950 
930 ifrt%=0thengotol810 
940 printtab(15)"[CTRL-9][CTRL-4][SPAC 
E]Wijzigen[SPACE][CTRL-0][2xCRSR-D 
OWN] " 

950 fori=ltoav%:printi"-[SPACE]"vn$(i) 

:nexti 

960 printtab(9)"[2xCRSR-D0WN]Geef[SPAC 
E]sleutelveld. 

970 k$=chr$(0);getk$:k=val(k$):ifk<lor 

k>av%then970 

980 printk$:print"[2xCRSR-DOWN]Welke[S 

PACE]"vn$(k)"?.::pokel9,1linputz 
$:pokel9,0:print 

990 fori=ltort%:ifleft$(r$(i,k),len(z$ 
))=z$thengosubl980:ifd=lthenl010 
1000 nexti:print"[CRSR-DOWN][3xSPACE]Is 
[SPACE]niet[SPACE]in[SPACE]deze[SP 
ACE]bestand[SPACE]aanwezig.":gotol 
110 

1010 print"[SHIFT-CLR]":forj=ltoav%:pri 
ntj"-[SPACE]"vn$(j)"[SPACE] :"r$ (i, 
j):nextj 

1020 print"[3xCRSR-D0WN]Welke[SPACE]vel 
d[SPACE]wilt[SPACE]u[SPACE]wijzige 
n[SPACE]?.[SPACE][CTRL-9][SPACE][P 
IJL LINKS][SPACE] [CTRL-0] =Menu." 
1030 k$=chr$(0):getk$:k=val(k$):ifk$="[ 

PIJL LINKS]"thenreturn 
1040 ifk<lork>av%thenl030 
1050 print"[SHIFT-CLR]":forj=ltoav% 

1060 printvn$(j)"[SPACE]:"r$(i,j):nextj 
1070 print"[CRSR-DOWN]Geef[SPACE]nieuwe 
[SPACE]"vn$(k)"[SPACE]:";:pokel9,1 
:inputr$(i,k);pokel9,0:print 
1080 print"[SHIFT-CLR]":forj=ltoav%:pri 
ntvn$(j)"[SPACE] :"r$ (i,j) :nextj 
1090 gosubl790:ifd=0thenl070 
1100 print"[CRSR-UP]Wilt[SPACE]u[SPACE] 
meer[SPACE]velden[SPACE]wijzigen[S 
PACE]?.([CTRL-9]J[CTRL-0]a/[CTRL-9 
]N[CTRL-0]ee).":gosubl750:ifd=lthe 
nlOlO 

1110 print"[2xCRSR-DOWN]Wilt[SPACE]u[SP 
ACE]verder[SPACE]wijzigen[SPACE]?. 

([CTRL-9]J [CTRL-0 ]a/[CTRL-9]N[CTRL 
0]ee).":gosubl750:ifd=lthen920 
1120 return 

1130 rem ******** records wissen ****** 
1140 print"[SHIFT-CLR][HOME]";:ifav%>0a 
ndrt%=0thengotol950 
1150 ifav%=0thengotol810 
1160 printtab(15)"[CTRL-9][CTRL-4][SPAC 
E]Wissen[SPACE] [CTRL-0] [2xCRSR-DOW 
N] " 

1170 fori=ltoav%:printi"-[SPACE]"vn$(i) 

:nexti 

1180 print"[2xCRSR-DOWN]Geef[SPACE]sleu 
telveld.:"; 

1190 k$=chr$(0):getk$:k=val(k$):ifk<lor 
k>av%thenll90 

1200 printk$:print"[CRSR-DOWN]Welke[SPA 
CE]"vn${k)"?.:pokel9,1:inputz$: 
pokel9, 0 .-print 

1210 fori=ltort%:ifleft$(r$(i,k) , len(z$ 

))=z$thengosubl980:ifd=lgotol230 
1220 nexti:print"[CRSR-DOWN][3xSPACE]Is 
[SPACE]niet[SPACE]in[SPACE]deze[SP 
ACE]bestand[SPACE]aanwezig.":gotol 


290 

1230 print " [2xCRSR-DOWN]Wilt[SPACE]u[S 
PACE]deze[SPACE]record[SPACE]wisse 
n[SPACE]?.([CTRL-9]J[CTRL-0]a/[CTR 
L 9]N [CTRL-0] ee).":gosubl750:ifd=0 
thenl290 

1240 forx=itort%-l:fory=ltoav% 

1250 r$ (x,y)=r$(x+l,y) 

1260 nexty,x 

1270 forj=ltoav%:r$(rt%,j)="":nextj 
1280 rt%=rt%-l:print"[CRSR-DOWN]Deze[SP 
ACE]record[SPACE]is[SPACE]gewist." 
1290 print "[2xCRSR-DOWN]Wilt[SPACE]u[S 
PACE]verder[SPACE]wissen[SPACE]?.( 
[CTRL-9]J [CTRL-0 ]a/[CTRL-9]N[CTRL 
0]ee)." 

1300 gosubl750:ifd=lthenll30 
1310 return 

1320 rem ******** sorteren ******** 

1330 print"[SHIFT-CLR] [HOME]";:ifav%>0a 
ndrt%=0thenl950 
1340 ifav%=0thengotol810 
1350 if rt%=l then return 
1360 printtab(15)"[CTRL-9][CTRL-4][SPAC 
E]Sorteren[SPACE] [CTRL-0] [2xCRSR-D 
OWN] " 

1370 fori=ltoav%:printi"-[SPACE]"vn$(i) 
:nexti:print"[CRSR-DOWN]Sorteren[S 
PACE]op[SPACE]welke[SPACE]veld[SPA 
CE]?."; 

1380 k$=chr$(0):getk$:k=val(k$):ifk<lor 

k>av%thenl380 

1390 printk$:printtab(10)"[3xCRSR-D0WN] 
Even[SPACE]uw[SPACE]geduld[SPACE ]s 
vp. " 

1400 d=l 

1410 ifd=0thenl530:rem*klaar met sorter 
en 

1420 d=0 

1430 for i=l to rt%-l 

1440 if r$ (i,k)<=r$ (i-fl,k) then 1520 

1450 for ii=ltoav% 

1460 p$=r$ (i-fl, ii) 

1470 r$(i+1,ii)=r$(i, ii) 

1480 r$(i,ii)=p$ 

1490 d=l 
1500 next ii 
1510 goto 1410 
1520 next i 

1530 printtab(9)"[CRSR-UP][CTRL-8]Besta 
nd[SPACE]is[SPACE]gesorteerd.[2xCR 
SR-DOWN][CTRL-4]":gotol730 
1540 rem ******** saven ************** 
1550 print"[SHIFT-CLR][HOME]";:ifav%>0a 
ndrt%=0thenl950 
1560 ifav%=0thengotol810 
1570 printtab(14)"[CTRL-9][CTRL-4][SPAC 
E]Saven[SPACE] [CTRL-0] " 

1580 printtab(14)"[CTRL-9][2xCRSR-DOWN] 
[SPACE][PIJL LINKS][SPACE] [CTRL-0] 
=Menu.[2xCRSR-DOWN]" 

1590 pokel9,1:input"[CRSR-DOWN]Geef[SPA 
CE]bestands[SPACE]naam[SPACE]:";b$ 

:pokel9,0:print:print 

1600 ifb$="[PIJL LINKS]"thenb$="";return 
1610 ifde=8thenb$="@0:>"+b$ 

1620 openl,de,l,b$:print#l,av%:print#l, 
rt% 

1630 fori=ltoav%:print#l,vn$(i):nexti 
1640 fori=ltort%:forj=ltoav%;print#l, r$ 
(i, j) :nextj,i 
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1650 

closelrprinttab(9)"[2xCRSR-DOWN]Be 


]Databank[SPACE]is[SPACE]VOL!!!!!. 


stand[SPACE]is[SPACE]gesaved.";got 
ol730 

2020 

":gotol730 

1660 

rem ******** einde gekozen ******* 

2030 

rem ******* init. **************** 

1670 

print"[SHIFT-CLR]" 

2040 

print"[SHIFT-CLR]"chr$(8)chr$(14); 

1680 

printtab(8)"[7xCRSR-D0WN]Stoppen, [ 


poke53281,0:poke53280,0:poke788,52 


SPACE]zeker[SPACE]?.[SPACE]([CTRL 


:poke792,193 


9]J[CTRL-0]a/[CTRL-9]N[CTRL-0]ee). 

2050 

print"[CRSR-DOWN]Gebruikt[SPACE]u. 


IT 


...:[2xCRSR-DOWN]":printtab(15)"1- 

1690 

gosubl750:ifd=lthensys64738 


Diskdrive[CRSR-DOWN]":de=0:printta 

1700 

return 


b(15) ; 

1710 

rem*subroutines voor mededelingen* 

2060 

print"[CRSR-DOWN]2-Datarecorder" 

1720 

rem ***** toets voor vervolg **** 

2070 

k$=chr$(0);getk$;k=val(k$):ifk<lor 

1730 

printtab(9)"[2xCRSR-DOWN][CTRL-9][ 


k>2then2070 


CTRL-7] [SPACE]Toet s[SPACE]voor[SPA 

2080 

print"[2XCRSR-DOWN]U[SPACE]koos[SP 


CE]vervolg.[SPACE] [CTRL-0] ":pokel9 


ACE]voor[SPACE]:[CTRL-9]"; 


8,0;waitl98,1:return 

2090 

ifk=lthenprint"Diskdrive":de=8 

1740 

rem ******* toets ophalen ******* 

2100 

ifk=2thenprint"Datarecorder";de=l 

1750 

d=0:k$=chr$(0):getk$ 

2110 

gosubl790:ifd=0thenprint"[SHIFT-CL 

1760 

ifk$="J"ork$="j"thend=l:return 


R]":goto2050 

1770 

ifk$="N"ork$="n"thend=0:return 

2120 

dimr$(300,9):return 

1780 

gotol750 

2130 

rem**bestanden ophalen van schijf* 

1790 

print"[2xCRSR-DOWN]Is[SPACE]dit[SP 

2140 

openl5,8,15,"10":open2,8,2,"#" 


ACE]korrekt[SPACE]?.([CTRL-9]J[CTR 

2150 

t=18:s=l:print"[3xCRSR-DOWN]":d=0: 


L 0]a/[CTRL-9]N [CTRL-0] ee).":gotol 


sa$="" 


750 

2160 

print#15,"ul";2;0;t;s 

1800 

rem **** funktie niet mogelijk *** 

2170 

print#15,"b-p";2;0 

1810 

print"[3xCRSR-DOWN][3xSPACE]Deze[S 

2180 

get#2,x$:ifx$=""thenx$=chr$(0) 


PACE]functie[SPACE]is[SPACE]nog[SP 

2190 

t=asc(x$) 


ACE]niet[SPACE]mogelijk.[CRSR-DOWN 

2200 

get#2,x$:ifx$=""thenx$=chr$(0) 


]":printtab(9); 

2210 

s=asc(x$) 

1820 

prinf'Gebruik[SPACE]optie[SPACE]1[ 

2220 

forx=0to7 


SPACE]of[SPACE]2." 

2230 

print#15,"b-p";2;x*32+2 

1830 

gotol730 

2240 

get#2,x$:ifx$=""thenx$=chr$(0) 

1840 

rem ****nieuwe velden aanmaken**** 

2250 

ifasc(x$)=0then2350 

1850 

print"[SHIFT-CLR][HOME]"; 

2260 

print#15,"b-p";2;x*32+5 

1860 

printtab(9)"[CTRL-9][CTRL-4][SPACE 

2270 

ff$="" 


]Nieuwe[SPACE]velden[SPACE]aanmake 

2280 

forxx=0tol5 


n.[SPACE] [CTRL-0] " 

2290 

get#2,x$:ifx$=""thenx$=chr$(0) 

1870 

print"[3xCRSR-DOWN][CTRL-3]Aanwezi 

2300 

ifasc(x$)=160then2330 


ge[SPACE]bestand[SPACE]zal[SPACE]w 

2310 

ff$=ff$+x$:ifleft$(ff$,1)<>">"then 


orden[SPACE]vernietigt.[2xCRSR-DOW 


ff$="":xx=15 


N]" 

2320 

nextXX 

1880 

printtab(6)"[CTRL-4]Weet[SPACE]u[S 

2330 

ifff$=""then2350 


PACE]het[SPACE]zeker[SPACE]?.([CTR 

2340 

printff$:d=l 


L 9]J [CTRL-0] a/[CTRL-9]N [CTRL-0 ]ee 

2350 

nextx:ift<>0then2160 


).":gosubl750 

2360 

close2:closel5:return 

1890 

ifd=landbl=lord=Oandbl=lthenreturn 

2370 

rem ****** printer module ****** 

1900 

ifd=0thenreturn 

2380 

gosub2610:ifd=2thenreturn 

1910 

fori=ltort%:forj=ltoav%;vn$(j)=chr 

2390 

openl,4,7:print#l:print#l,chr$(14) 


$(0):r$(i,j)=chr$(0) 

2400 

forj=ltoav% 



2410 

print#l,r$(i,j) 

1920 

nextj,i:av%=0;rt%=0 

2420 

next j 

1930 

goto320 

2430 

closel 

1940 

rem *** funktie niet mogelijk *** 

2440 

goto2590 

1950 

print"[3xCRSR-DOWN][3xSPACE]Deze[S 

2450 

rem* bestand naar printer * 


PACE]functie[SPACE]is[SPACE]nog[SP 

2460 

print"[SHIFT-CLR][HOME]:gosub261 


ACE]niet[SPACE]mogelijk.[CRSR-DOWN 


0:print"[SHIFT-CLR][HOME]";:ifd=2t 


]":printtab(9); 


henreturn 

1960 

prinf'Gebruik[SPACE]optie[SPACE]1[ 

2470 

printtab(8)"[CTRL-9][CTRL-4][SPACE 


SPACE]of[SPACE]4.":gotol730 


]Bestand[SPACE]uitprinten[SPACE][C 

1970 

rem *** bij wijzigen en wissen *** 


TRL 0][3xCRSR-DOWN]" 

1980 

print"[SHIFT-CLR]":forx=ltoav%:pri 

2480 

printtab(10)"Een[SPACE]ogenblikje[ 


ntvn$(x)"[SPACE]:"r$ (i, x) :nextx 


SPACE]aub." 

1990 

printtab(7)"[2xCRSR-D0WN]Bedoelt[S 

2490 

openl,4,7:print#l,chr$(14) 


PACE]u[SPACE]deze[SPACE]?.([CTRL-9 

2500 

print#1,"[3xSPACE]SWIFTBASE[SHIFT 


]J[CTRL-0]a/[CTRL-9]N[CTRL-0]ee)." 


SPACE]1.0[SPACE](c)[SPACE]1988[SPA 


:gotol750 


CE]Y.S.KASMIN"chr$(15):print#l,chr 

2000 

rem ***** databank is vol!!! ***** 


$(13) 

2010 

print"[SHIFT-CLR][6xCRSR-DOWN][CTR 

2510 

fori=ltort%step2:forj=ltoav%:x=len 


L 3][4XSPACE]Sorry,[SPACE]de[SPACE 


(r$(i,j)):ifx>27thenx=27 
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xx=27-x 

print#l,vn$(j)"[SPACE];"r$(i,j)tab 

(XX) ; 

i£r$ (i+1, j)=""t.henprint.#l;goto2560 
print#l, vn$(j)"[SPACE] :"r$(i+1,j) 
next j 

forx=0to79:print#l,:nextx;next 
i 

print#l,chr$(12):print#l:closel 
return 

rem ****** printer controle ****** 
print"[SHIFT-CLR]" 

openl, 4,7 :poke769, 226 : print#l: dos 
el:poke769,227:ifst<>-128thenretur 
n 

print"[2xCRSR-D0WN]Printer[SPACE]s 


taat[SPACE]niet[SPACE]aangesloten. 

tl 

2640 print"[CRSR-DOWN]Printer[SPACE]aan 
zetten.";print"Toet s[SPACE]daarna[ 
SPACE]willekeurig." 

2650 print"[2xCRSR-DOWN][CTRL-9][SPACE] 
M[SPACE][CTRL-0]=Menu" 

2660 k$="":getk$;ifk$=""then2660 

2670 ifk$="m"ork$="M"thenk$="";d=2:retu 
rn 

2680 goto2610 

EINDE LISTING swiftbase 1.0 


Checksum Swiftbase 


REGEL 1 
REGEL 2 
REGEL 3 
REGEL 4 
REGEL 5 
REGEL 6 
REGEL 7 
REGEL 8 
REGEL 9 
REGEL 10 
REGEL 20 
REGEL 30 
REGEL 40 
REGEL 50 
REGEL 60 
REGEL 70 
REGEL 80 
REGEL 90 
REGEL 100 
REGEL 110 
REGEL 120 
REGEL 130 
REGEL 140 
REGEL 150 
REGEL 160 
REGEL 170 
REGEL 180 
REGEL 190 
REGEL 200 
REGEL 210 
REGEL 220 
REGEL 230 
REGEL 240 
REGEL 250 
REGEL 260 
REGEL 270 
REGEL 280 
REGEL 290 
REGEL 300 
REGEL 310 
REGEL 320 
REGEL 330 
REGEL 340 
REGEL 350 
REGEL 360 
REGEL 370 
REGEL 380 
REGEL 390 
REGEL 400 
REGEL 410 
REGEL 420 
REGEL 430 

REGEL 440 
REGEL 450 
REGEL 460 
REGEL 470 
REGEL 480 
REGEL 490 
REGEL 500 
REGEL 510 


REGEL 520 
REGEL 530 
REGEL 540 
REGEL 550 
REGEL 560 
REGEL 570 
REGEL 580 
REGEL 590 
REGEL 600 
REGEL 610 
REGEL 620 
REGEL 630 
REGEL 640 
REGEL 650 
REGEL 660 
REGEL 670 
REGEL 680 
REGEL 690 
REGEL 700 
REGEL 710 
REGEL 720 
REGEL 730 
REGEL 740 
REGEL 750 
REGEL 760 
REGEL 770 
REGEL 780 
REGEL 790 
REGEL 800 
REGEL 810 
REGEL 820 
REGEL 830 
REGEL 840 
REGEL 850 
REGEL 860 
REGEL 870 
REGEL 880 
REGEL 890 
REGEL 900 
REGEL 910 
REGEL 920 
REGEL 930 
REGEL 940 
REGEL 950 
REGEL 960 
REGEL 970 
REGEL 980 
REGEL 990 
REGEL 1000 
REGEL 1010 
REGEL 1020 
REGEL 1030 
REGEL 1040 
REGEL 1050 
REGEL 1060 
REGEL 1070 
REGEL 1080 
REGEL 1090 
REGEL 1100 
REGEL 1110 


115 

REGEL 1120 

142 

45 

REGEL 1130 

198 

216 

REGEL 1140 

123 

182 

REGEL 1150 

35 

250 

REGEL 1160 

205 

160 

REGEL 1170 

1 

8 

REGEL 1180 

130 

16 

REGEL 1190 

61 

241 

REGEL 1200 

241 

95 

REGEL 1210 

176 

61 

REGEL 1220 

18 

39 

REGEL 1230 

140 

61 

REGEL 1240 

118 

250 

REGEL 1250 

213 

170 

REGEL 1260 

95 

238 

REGEL 1270 

76 

102 

REGEL 1280 

80 

182 

REGEL 1290 

123 

37 

REGEL 1300 

178 

176 

REGEL 1310 

142 

190 

REGEL 1320 

161 

165 

REGEL 1330 

242 

72 

REGEL 1340 

35 

176 

REGEL 1350 

110 

195 

REGEL 1360 

102 

207 

REGEL 1370 

5 

30 

REGEL 1380 

62 

142 

REGEL 1390 

181 

41 

REGEL 1400 

39 

68 

REGEL 1410 

215 

4 

REGEL 1420 

38 

35 

REGEL 1430 

248 

190 

REGEL 1440 

72 

231 

REGEL 1450 

86 

200 

REGEL 1460 

207 

159 

REGEL 1470 

41 

157 

REGEL 1480 

244 

243 

REGEL 1490 

39 

142 

REGEL 1500 

20 

104 

REGEL 1510 

79 

242 

REGEL 1520 

203 

50 

REGEL 1530 

159 

91 

REGEL 1540 

168 

1 

REGEL 1550 

242 

77 

REGEL 1560 

35 

18 

REGEL 1570 

78 

2 

REGEL 1580 

117 

202 

REGEL 1590 

146 

9 

REGEL 1600 

17 

179 

REGEL 1610 

249 

191 

REGEL 1620 

89 

45 

REGEL 1630 

163 

141 

REGEL 1640 

148 

184 

REGEL 1650 

231 

6 

REGEL 1660 

125 

183 

REGEL 1670 

112 

248 

REGEL 1680 

116 

184 

REGEL 1690 

151 

128 

REGEL 1700 

142 

203 

REGEL 1710 

237 


REGEL 1720 
REGEL 1730 
REGEL 1740 
REGEL 1750 
REGEL 1760 
REGEL 1770 
REGEL 1780 
REGEL 1790 
REGEL 1800 
REGEL 1810 
REGEL 1820 
REGEL 1830 
REGEL 1840 
REGEL 1850 
REGEL 1860 
REGEL 1870 
REGEL 1880 
REGEL 1890 
REGEL 1900 
REGEL 1910 
REGEL 1920 
REGEL 1930 
REGEL 1940 
REGEL 1950 
REGEL 1960 
REGEL 1970 
REGEL 1980 
REGEL 1990 
REGEL 2000 
REGEL 2010 
REGEL 2020 
REGEL 2030 
REGEL 2040 
REGEL 2050 
REGEL 2060 
REGEL 2070 
REGEL 2080 
REGEL 2090 
REGEL 2100 
REGEL 2110 
REGEL 2120 
REGEL 2130 
REGEL 2140 
REGEL 2150 
REGEL 2160 
REGEL 2170 
REGEL 2180 
REGEL 2190 
REGEL 2200 
REGEL 2210 
REGEL 2220 
REGEL 2230 
REGEL 2240 
REGEL 2250 
REGEL 2260 
REGEL 2270 
REGEL 2280 
REGEL 2290 
REGEL 2300 
REGEL 2310 


REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL 

REGEL : 

REGEL : 

REGEL : 

REGEL : 

REGEL : 

REGEL : 

REGEL : 

REGEL : 

REGEL : 

REGEL ; 

REGEL ; 
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Superwriter 64 


8 100 
§ 110 
120 
130 


Met het programma superwriter kan een tekst worden 
ingetypt. Tot zover niets nieuws, maar alle toets aan¬ 
slagen worden onthouden. Deze aanslagen kunnen 
ook naar een disk worden weggeschreven. Wordt dit 
programma dan weer geladen dan is het resultaat 
een brief die op het scherm wordt getikt. Hierbij zijn 
dan talloze grafische grapjes mogelijk, een geluid 
maakt het geheel kompleet. Jim v d Heijden uit Breda 
is de maker van dit geheel. 


rem ************************* 
rem *** super-writer 64 *** 

rem ************************* 
rem *** geschreven door *** 
rem *** *** 

rem *** Jin v d Heyden. *** 
rem *** Breda *** 

rem ************************* 
print"[SHIFT-CLR]data[SPACE]lezen[ 
SPACE]kost[SPACE]even[SPACE]tijd[S 
PACE]in[SPACE]basic" 
forq=0to496 
reada:poke49152+q, a 
c=c+a:next 

ifc<>62360thenprint"fout[SPACE]in[ 

SPACE]data":end 

sys49152 

datal69,128,141,138,2,169,0,141,32 
,208,141,33,208,141,255,2 
datal41,0,3,169,32,133, 177,162,0, 1 
34,176,232,134,150,169,7 
datal41,134,2,32,68,229,169,128, 16 
0,193,32,30,171,32,228,255 
data240,251,201,81,240,28,201,49,1 
44,243,201,53,176,239,56 
data233,49,10,170,189,85,192,141, 8 
0,192,189,86,192,141,81,192 
data76,93,192,76,226,252,93,192,15 
0,192,224,192,3,193,32, 68 
data229,32,201,192,32,228,255,240, 
248,164,150,208,2,230, 177 
datal45,176,230,150,72,32,210,255, 
104,201,3,240,14,76,96,192 
datal62,255,160,25,202,208,253, 136 
,208,250,96,165,150, 141,255 
data2,165,177,141,0,3,76,19,192,32 
,68,229,164,150,208,2,230 
datal77,177,176,201,3,240,28,32,21 
0,255,32,201,192,230, 150 
datal60,255,162,5,136, 208,253,202, 
208,250,32,228,255,201,3 
data208,219,76,19,192,32,228,255,2 
40,251,76,19,192,164,211 
datal77,209,9,128,145,209, 32,12 6,1 
92,164,211,177,209,41,127 
datal45,209,32,126,192,96, 32,92,19 
3,162,8,160,1,32,186,255 
datal65,151,162,240,160,193,32,189 
,255,169,0,32,213,255,169,2 
data32,195,255,32,231,255, 7 6, 19, 19 
2,173,0,3,208,3,76, 19,192 
data32,92,193,160,1,169,2,162,8,32 
,186,255,165,151,162,240 
datal60,193,32,189,255, 32,192,255, 
162,2,32,201,255,169, 0,133 
data251,32,210,255,169,32,133,252, 
32,210,255,160,0,177,251,32 
data210,255,230,251,208,2,230,252, 


i 1019 


165,252,205,0,3,208,236,165 

1021 data251,205,255,2,208,229,169,2,32 
,195,255,32,231,255, 76, 19 

1022 datal92,32,68,229,169,0,133, 151, 16 
9,224,160,193,32,30,171,32 

1023 data228,255,240,251,72,32,210,255, 
104,166,151,157,240,193,230 

1024 datal51,201,13,208,235,96,4 9, 32, 78 
, 73, 69, 85, 87, 69,32, 84, 69, 75 

1025 data83, 84,32,77,65,75,69,78,13,50, 
32,7 9, 85, 68, 69,32,84,69,75 

1026 data83, 84,32,7 6,65,84,69,78,32,90, 
73, 69, 78, 13,51, 32,76, 65, 68 

1027 data69,78,13,52,32,83, 65, 86, 69, 78, 
13, 81,32, 81,85,73,84,13,82 

1028 data85,78,47,83,84,79,80,32,61,32, 
84,69, 82, 85, 71,32,78,65,65 

1029 data82,32,77,69,78,85,13,0,84,89,8 
0, 69, 32,70,73,76,69,78,65 

1030 data65,77,13,13,0,0 

EINDE LISTING superwriter 64 


Checksum Superwriter 

REGEL 

10 

169 

REGEL 

1009 

30 

REGEL 

20 

142 

REGEL 

1010 

224 

REGEL 

30 

169 

REGEL 

1011 

226 

REGEL 

40 

169 

REGEL 

1012 

1 

REGEL 

50 

31 

REGEL 

1013 

48 

REGEL 

60 

111 

REGEL 

1014 

251 

REGEL 

70 

233 

REGEL 

1015 

137 

REGEL 

80 

169 

REGEL 

1016 

43 

REGEL 

90 

155 

REGEL 

1017 

241 

REGEL 

100 

251 

REGEL 

1018 

81 

REGEL 

110 

6 

REGEL 

1019 

111 

REGEL 

120 

223 

REGEL 

1020 

109 

REGEL 

130 

96 

REGEL 

1021 

43 

REGEL 

140 

163 

REGEL 

1022 

83 

REGEL 

1000 

21 

REGEL 

1023 

124 

REGEL 

1001 

230 

REGEL 

1024 

177 

REGEL 

1002 

84 

REGEL 

1025 

142 

REGEL 

1003 

233 

REGEL 

1026 

132 

REGEL 

1004 

161 

REGEL 

1027 

119 

REGEL 

1005 

61 

REGEL 

1028 

134 

REGEL 

1006 

30 

REGEL 

1029 

87 

REGEL 

1007 

69 

REGEL 

1030 

9v 

REGEL 

1008 

132 





5 REM "DORST 64” 

10 REM "DOOR KEES” 

20 PRINT’MK HEB TREK IN” 
30 PRINT’MN EEN PILSJE” 
40 END 

<o 


mm. 




iiii 
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Vier op een rij 


Weer een inzending uit Belgie ditmaal. Luc de Cock, 
zeker geen onbekende voor onze trouwe lezers, 
heeft ditmaal een computerversie gemaakt van het 
overbekende spel 4 op een rij. De opdracht is een¬ 
voudig, breng vier schijven van je eigen kleur op een 
rij, dit mag horizontaal, vertikaal, ja zelfs diagonaal. 
En dit geheel moet je eerder voor elkaar hebben dan 
je tegenstander. Dit kan een medespeler zijn maar 
ook de Commodore 64 kan een geduchte tegenstan¬ 
der zijn. 


31 goto 40 

32 rem*********************start spel 
★ 

33 print"[2xCRSR-DOWN][SPACE]speler[S 
PACE]1[SPACE]speelt[SPACE]met[SPAC 
E]de[SPACE]joystick[SPACE]1":print 
"[CRSR-DOWN]o f[SPACE]met[SPACE]vol 
gende[SPACE]t oet s en" 

34 print"[CRSR-DOWN][12xSPACE][CTRL-9 
][3xSPACE]2[4xSPACE][CTRL-0][SPACE 
]links[SPACE]" 

35 print"[CRSR-DOWN][12xSPACE][CTRL-9 
][2xSPACE]Ctrl[2xSPACE] [CTRL-0] [SP 


1 rem ****************************** 

itick 

2 rem * 4 op een rij 

* 


ACE]rechts" 

36 print"[CRSR-DOWN][SPACE][SHIFT-SPA 
CE][lOxSPACE][CTRL-9][SPACE]spatie 
[SPACE] [CTRL-0] [SPACE]laten[SPACE] 
vallen" 


3 rem * 1. de cock 

★ 

4 rem * haacht (belgie) 

* 

5 rem ****************************** 

6 gotolO 

7 poke53280,z:poke53281,z:return 

8 poke781,li:poke782,co;poke783,0:sy 
s 65520:printf$return 

9 gosub8:forw=ltol00:next:return 

10 dima(6,7),x(7),n(25),r(2),g(7) 

11 n(l)=.01:n(2)=.l;n(3)=10:n(4)=1000 
:n(7)=l:n(13)=100;n(19)=10000 

12 b$="":fori=lto40:b$=b$+chr$(32):nG 
xt 

13 bl$="":fori=ltoll:bl$=bl$+chr$(32) 

; next 

14 print"[SHIFT-CLR]":forj=lto7:g(j)= 
0:k(j)=0:fori=lto6;a(i,j)=0:nexti, 
j : c=0 

15 z=9:gosub7:printchr$(158):gosubl47 

16 li=ll:co=4:f$="welkom[SPACE]bij[SP 
ACE]4[SPACE]op[SPACE]een[SPACE]rij 
[SPACE]!":gosub8 

17 li=15:co=0:f$="voor[SPACE]u[SPACE] 
uitzonderlijk[SPACE]:":gosub8 

18 li=18:co=2:f$="Q[SPACE]de[SPACE]be 
doeling[SPACE]is[SPACE]4[SPACE]pio 
ns[SPACE]op[SPACE]een[SPACE]rij";g 
osub8 

19 li=20:f$="[2xSPACE]te[SPACE]verkri 
jgen":gosubS 

20 li=22:f$="Q[SPACE]druk[SPACE]spati 
ebalk[SPACE]om[SPACE]te[SPACE]star 
ten";gosubS 

21 geta$;ifa$<>chr$(32)then21 

22 print"[SHIFT-CLR]":z=15:gosub7:pri 
ntchr$(149); 

23 rem fori=1024to2023;pokei,83:pokei 
+54272,int(rnd(l)*15):next 

24 fori=1313tol393step40:forj=itoi+22 
:pokej,32:nextj,i 

25 li=8:co=ll:f$="aantal[SPACE]speler 
s[SPACE]?":gosub8 

26 geta$:a=val(a$):ifa<lora>2then26 

27 printa:ifa=2then32 

28 fori=1509tol589step40:forj=itoi+30 
:pokej,32:nextj,i 

li=13:co=6:f$="moeilijkheidsgraad[ 
SPACE] (1/2) [SPACE]?";gosub8 
geta$;df=val(a$):ifdf<lordf>2then3 
0 


37 print"[2xCRSR-DOWN][SPACE]speler[S 
PACE]2[SPACE]speelt[SPACE]met[SPAC 
E]de[SPACE]joystick[SPACE]2" 

38 print"[2xCRSR-DOWN][9xSPACE]druk[S 
PACE ] op [ SPACE ] een [ SPACE ] toets " 

39 get a$:if a$="" then 39 

40 print"[SHIFT-CLR]":gosubl54 

41 onint((rnd(l)+a-l)*2+1)goto42,53, 8 
2, 93 

42 reni******************sp©l©i‘ sp©elt 
★ 

43 c=c+l:printchr$(153);:ifc=43then77 

44 li=14:co=27:f$=bl$:gosub8 

45 li=12:fori=lto5:f$=bl$:gosub9:f$=" 
s[SPACE]p[SPACE]e[SPACE]1[SPACE]e[ 
SPACE]r":gosub9:next:gosubl62 

46 fr=-((peek(56321)andl6)=0):jv=peek 
(56321)andl5:mv=(jv=ll)-(jv=7) 

47 ifco>0andco<21andmv=lthengosubl78: 
goto49 

48 ifco>3andco<24andmv=-lthengosubl78 

49 x=co/3:y=6-k(x):iffr=0ory=0thGn46 

50 f$=" [CTRL-0] [2xSPACE][CRSR-DOWN][2 
xCRSR-LEFT][2xSPACE][CTRL-9]":gosu 
b9;li=3:gosubl76:ify=lthen52 

51 fori=3to(y-1)*3step3:li=i:f$="[COM 

3][CTRL-9][2XSPACE][CRSR-DOWN][2x 
CRSR-LEFT][2xSPACE] [CTRL-0] [COM-6] 

":gosub9:li=i+3:gosubl76:next 

52 a(y, x)=1:k(x)=k(x)+1:ifg(x)=lthenl 
37 

53 rem****************computer speelt 
* 

54 c=c+l:printchr$(154);:b=2;m=0:tmax 
=0:xm=0:gosubl62:ifc=43then77 

55 forx=lto7:gosubll2:ifdir=lthenx=7: 
goto42 

56 li=12:co=27:f$=bl$:gosub9:f$="oomm 
odore":gosub9 

57 li=14:f$=bl$:gosub9:f$="[4xSPACE]6 
4";gosub9 

58 t(x)=t:ift(x)=>tmaxthenxm=x:tmax=t 
(x) 

59 next:ifdf=lthenx=xm;goto72 

60 fori=lto7:ix(i)=i:next 

61 inv=0 

62 forx=2to7:ift(x)>t(x-1)thena=t(x): 
t(x)=t(x-l) .’t (x-l)=a:a=ix(x) :goto6 
4 

63 goto65 

64 ix(x)=ix(x-l):ix(x-l)=a:inv=l 

65 next!ifinv=lthen61 

66 b^l forl=lto7:x=ix(l);y=6-k(x):ify 


30 
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=0then71 

67 ify=lthen72 

68 a(y,x)=6:k{x)=k(x)+l;g=g(x):gosubl 
12 ; a (y, x) =0 : k (x) =k (x) -1 

69 ifg(x)=0then72 

70 g(x)=g:a{y+l,x)=0 

71 next:fori=lto7:ifk(ix(i))<6theni=7 
:x=ix(i):goto72:next 

72 i=7:y=6-k(x):a(y,x)=6:k(x)=k(x)+1 

73 li=0;co=0:mv=l:fori=ltox:gosubl78: 
next 

74 f$="[CTRL-0][2xSPACE][CRSR-DOWN][2 
xCRSR-LEFT][2xSPACE][CTRL-9]":gosu 
b9;li=3:gosubl7 6:ify=lthen7 6 

75 fori=3to(y-1)*3step3:li=i:f$="[COM 

3][CTRL-9][2xSPACE][CRSR-DOWN][2x 
CRSR-LEFT][2xSPACE] [CTRL-0] [COM-7] 

":gosub9:li=i+3:gosubl7 6:next 

76 b=l:gosubll2;goto42 

77 goto42 

78 rem********************niet slecht 
* 

79 li=23:co=2:f$="[2xSPACE]niet[SPACE 

]slecht[SPACE].":gosubS 

80 geta$:ifa$<>chr$(32)then80 

81 gosubl54:goto42 

82 rem**************lst speler speelt 
* 

83 c=c+l:pl=l:printchr$(152);:ifc=43t 
henlOS 

84 li=13:co=27;fori=lto5:f$=bl$;gosub 
9:f$="[SPACE]speler[2xSPACE]1":gos 
ub9:next:gosubl62 

85 fr=-((peek(56321)andl6)=0):jv=peek 
(56321)andl5:mv=(jv=ll)-(jv=7) 

86 ifco>0andco<21andinv=lthengosubl78; 
goto88 

8 7 ifco>3andco<2 4andmv=-Ithengosubl7 8 

88 x=co/3:y=6-k(x):iffr=0ory=0then85 

89 f$=” [CTRL-0] [2xSPACE][CRSR-DOWN][2 
xCRSR-LEFT][2xSPACE][CTRL-9]":gosu 
b9:li=3;gosubl7 6:ify=lthen91 

90 fori=3to(y-1)*3step3;li=i:f$="[COM 

3][CTRL-9][2XSPACE][CRSR-DOWN][2x 
CRSR-LEFT][2xSPACE] [CTRL-0] [COM-5] 

":gosub9:li=i+3:gosubl7 6:next 

91 a(y,x)=1:gosubll2:ifdir=lthen93 

92 gosubl74:k(x)=k(x)+l 

93 rem**************2de speler speelt 
★ 

94 c=c+l:pl=2:printchr$(158);:ifc=43t 
henl08 

95 li=13:co=27;fori=lto5:f$=bl$:gosub 
9;f$="[SPACE]speler[2xSPACE]2":gos 
ub9:next:gosubl62 

96 fr=-((peek(56320)andl6)=0):jv=peek 
(56320)andl5:mv=(jv=ll)-(jv=7) 

97 ifco>0andco<21andmv=lthengosubl78: 
goto99 

98 ifco>3andco<24andmv=-lthengosubl78 

99 x=co/3:y=6-k(x):iffr=0ory=0then96 

100 f$=" [CTRL-0] [2xSPACE][CRSR-DOWN][2 
xCRSR-LEFT][2xSPACE][CTRL-9]":gosu 
b9:li=3:gosubl76;ify=lthenl02 

101 fori=3to(y-1)*3step3:li=i:f$="[COM 

3][CTRL-9][2xSPACE][CRSR-DOWN][2x 
CRSR-LEFT][2xSPACE] [CTRL-0] [CTRL-8 
]":gosub9:li=i+3:gosubl76:next 

102 a(y,x)=6;gosubll2:ifdir=2then82 

103 gosubl74:k(x)=k(x)+1:goto82 

104 rein*******************druk winnaar 


* 

105 gosubl74;li=23:co=6:f$="proficiat[ 
SPACE] " : gosubS -.printpl: r (pl) =r (pl) 
+1:gosubl64 

106 geta$:ifa$<>chr$(32)thenlOö 

107 gosubl54:dir=pl:return 

108 rein****************druk nul,snuls* 

109 li=23:co=2:f$="nul,nul,snul[SPACE] 

! " 

110 geta$;ifa$<>chr$(32)thenllO 

111 f$=b$:gosubS:return 

112 rem****************computer denkt* 

113 g(x)=0:t=0:dir=0:y=6-k(x) 

114 ify=0thent=-l:gotol34 

115 ify=lthens=0:forj=lto4:s=s+a(j,x): 
next:gosubl68:gotoll8 

116 ify=2thenfori=lto2:s=0:forj=ito3+i 
:s=s+a(j,x):next:gosubl68:next:got 
oll8 

117 ify>2thenfori=0to2;s=0:forj=l+ito4 
+i:s=s+a (j,x) :next:gosubl68:next:g 
otoll8 

118 ifx>4thenford=x-3to4:s=0;fori=dtod 
+3:s=s+a(y,i):next;gosubl68:next:g 
otol20 

119 ford=ltox:s=0:fori=dtod+3:s=s+a(y, 
i):next:gosubl68:next 

120 a=x+y 

121 ifa<5ora>8ory>4thenl23 

122 i=l:gosubl35 

123 ifa<6ora>9ory=lory=6thenl25 

124 i=2:gosubl35 

125 ifa<7ora>10ory<3thenl27 

126 i=3:gosubl35 

127 a=x-y 

128 ifa<0ora>3ory>4thenl30 

129 i=l:gosubl36 

130 ifa<-lora>2ory=lory=6thenl32 

131 i=2:gosubl36 

132 ifa<-2ora>lory<3thenl34 

133 i=3:gosubl36 

134 return 

135 s=0:forj=itoi+3:s=s+a(j,a-j):next: 
gosubl68:return 

136 s=0:forj=itoi+3:s=s+a(j,a+j):next: 
gosubl68:return 

137 rem*****************speler 1 wint* 

138 li=23:co=5:f$="niet[SPACE]slecht[S 
PACE]????":gosubS:r(l)=r(1)+1:gosu 
bl64 

139 geta$:ifa$<>chr$(32)thenl39 

140 gosubl54:goto53 

141 r eiti* **************** computer wint * 

142 li=23 : co=2 : f $=’’tralala . . ik [SPACE] s 
peel[SPACE]op":gosubSiprintx:forw= 
lto3000:next 

143 y=6-k(x):gosubl74 

144 li=23:co=2:f$="en[SPACE]je[SPACE]b 
ent[SPACE]in[SPACE]de[SPACE]taart" 
:gosubS:r(2)=r(2)+1:gosubl64 

145 geta$:ifa$<>chr$(32)thenl45 

146 gosubl54:dir=l;return 

147 reii;i*******************titelscherm* 

148 li=2:f$="[CTRL-9][SPACE]gosubl53 

149 1i=3:co=2 6;f$=”[3xSPACE]vier[SPACE 
]op[3xSPACE]":gosubS 

150 li=4:f$=chr$(102):gosubl53 

151 li=5:co=26;f$="[3xSPACE]een[SPACE] 
rij[3xSPACE]":gosubS 
li=6:f$="[SPACE]":gosubl53:print"[ 
CTRL-0] ":return 


152 
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forGO=26to38:;gosub8:next:return 
jTGin******************^diruk êz** 

forj=lto7:g(j)=0:k(j)=0:fori=lto6: 
a(i, j)=0:nexti,j:c=0 
print"[SHIFT-CLR]":z=0:gosub7:prin 
tchr$(150);gosubl47 
co=2:fori=3tol8step3;li=i;f$="[CTR 
L 9]B[2xSHIFT-SPACE]B[2xSHIFT-SPAC 
E]B[2xSHIFT-SPACE]B[2xSHIFT-SPACE] 
B[2XSHIFT-SPACE]B[2xSHIFT-SPACE]B[ 
2xSHIFT-SPACE]B":gosub8 
li=i+l:f$="B[2xSHIFT-SPACE]B[2xSHI 
FT SPACE]B[2xSHIFT-SPACE]B[2xSHIFT 
SPACE]B[2xSHIFT-SPACE]B[2xSHIFT-S 
PACE]B[2xSHIFT-SPACE]B[CTRL-0]":go 
sub8 

li=i+2:f$="DDDDDDDDDDDDDDDDDDDDDD" 

:gosubS 

li=21:f$="[SPACE]1[2xSPACE]2[2xSPA 

CE]3[2xSPACE]4[2xSPACE]5[2xSPACE]6 

[2xSPACE]7[SPACE]":gosubS 

next:gosubl64 

li=0:co=3:gosubl7 6 

return 

rem*********************zet score* 


165 forw=lto400:next 

166 li=21:co=2 8:f$="s[SPACE]c[SPACE]o[ 
SPACE]r[SPACE]e":gosub8 

167 li=23:co=29:f$=str$(r(1)):gosubS;c 
0=33 :f$=str$(r(2)):gosubS:return 

168 rem***********************analyse* 

169 i£s=3theng(x)=1 

170 ifs=18andb=2thengosubl41:gotol73 

171 ifs=4ors=24thengosubl04:gotol73 

172 t=t+n(s+l) 

173 return 

174 3^0m_************************ 2 et pion* 

175 li=y*3:co=3*x 

176 f$="[CTRL-9]UI[CRSR-DOWN][2xCRSR-L 
EFT]JK[CTRL-0]";gosub9 

177 return 

178 rem**********************wis pion* 

179 f$="[CTRL-0][2xSPACE][CRSR-DOWN][2 
xCRSR-LEFT][2xSPACE][CTRL-9]":gosu 
b8:co=co+mv*3;gotol76 

EINDELISTING4 0 P een rii 


Checksum 4 op een rij 
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BattleStar 64 


■ In het programma battlestar zit U achter de stuur- 
knuppel van een ruimteschip. Er verschijnen een 
aantal tegenstanders. Deze kunt U reeds van verre 
zien aankomen op het radarscherm. Door de joystick 
’ te verplaatsen kunt U deze tegenstanders in het vi¬ 
zier krijgen. Lukt dit dan is een druk op de vuurknop 
voldoende om ze te vernietigen. Om de tegenstan- 
, ders goed in het beeld te krijgen moet U proberen de 
j pijl op het radarscherm precies onder het stipje op 
het beeldscherm te brengen. Niet te snel korrigeren, 
I een stuurkorrektie wordt langzaam ingezet. Het pro- 
j gramma komt bij onze zuider buren vandaan en is 
I gemaakt door Dieter Dewijn. 

I 1 rem dewijn dieter ' 89 

I 2 rem (c)opyright commodere-info 

I 3 rem joystick port ii 

I 4 rem battlestar 

! 5 rem ************************** 

I 6 poke 53280,12:poke53281,12rgosub 1 

90 

7 sd=54272 

8 dim sc$(5),SC(5),sh(5):forj=lto5:s 
c$(j)="**********":sd(j)=0:sh(j)=0 
:next j 

9 rem 

l\ 10 v=53248 :pokev+40,6 :pokev+44, 6 :poke 

I v+45,6:pokev+46,2:poke53275,255 

I 11 poke2045,244:poke2046,245:poke2047 

1 ,246 

I 12 rem 

j 13 g=0:hi=0 

j 14 sc=0:x=0:y=0:i=0:si=0:xp=0:xe=0:xr 

I =0:xd=0:n=0:jy=0:m=0;q=0:s=0:ti$=" 

I 000000 " 

j 15 yr=0:cl=0;f=500:a=0:sh=0 

I 16 if g=l then 24 

I 17 if g=0then gosub 192 

I 18 rem 

1 19 if g=0then pri.nt" [HOME] [22xCRSR-D 

OWN][CTRL-9][CTRL-3][SPACE]demo[SP 
ACE]?[SPACE](j/n)" 

20 get a$:ifa$=""then20 

21 if a$<>"j"and a$<>"n"then 20 

22 if a$="j"thengosub 191 

23 g=l:poke53280,ll:poke53281, 12 

24 gosub 140:gotol07 

25 rem 

26 poke sd+4,19 

27 x=x-6:ifx=<0andsi=2thenx=x+255:pok 
ev+16,0:pokev+2,x:si=0 

28 if x=<0andsi=0thenx=0 

29 ifxp=<0thenxp=0 

30 pokexdt(yr-1)*40,160:pokexd+54272+ 
(yr-1)*40,5 

31 xe=xp:xp=xp-6:ifxp<0thenxp=0 

32 xr=1558+int(xe*12/347) 

33 pokexr+yr*40,160:pokexr+54272+yr*4 
0,5 

34 xd=1558+int(xp*12/347) 

35 poke xd+yr*40,87:pokexd+54272+yr*4 

0 , 6 

36 return 

37 rem 

38 poke sd+4,19 

39 x=x+6:ifx=>256 andsi=0thenx=x-256: 
pokev+16,2:pokev+2,x:si=2 
ifx>90andsi=2thenx=90 


pokexdt(yr-1)*40,160:pokexd+54272+ 
(yr-1)*40,5 

xe=xp:xp=xp+6:ifxp>347 then xp=347 
xr=1558+int(xe*12/347) 
pokexr+yr*40,160:pokexr+54272+yr*4 
0,5 

xd=1558+int(xp*12/347) 
pokexd+yr*40,87:pokexd+54272+yr*40 
,6 

return 

rem 

poke sd+4,19 
y=y-6:ify<0theny=0 
return 
rem 

pokesd+4, 19 

y=y+6:ify>150then y=150 

return 

rem 

if yr>2 then sc=sc+10:a=a+l 

if a=2 then sc=sc+100 

print"[HOME][17xCRSR-DOWN][34xCRSR 

-RICHT][CTRL-3][CTRL-9]";sc 

return 

rem 

poke sd+4,18 
f=int(f-cl/50) 

print"[HOME][17xCRSR-DOWN][2xCRSR- 

RIGHT][CTRL-9][CTRL-3][4xSPACE][4x 

CRSR-LEFT]";f 

return 

rem 

poke v+21,1:pokexd+yr*40,160:pokex 
d+54272+yr*40,5 

for i=0to 7;pokexd+i*40,160:pokex 
d+54272+i*40,5:next 
pokel985+sh,87:poke56257+sh,2:sh=s 
h+1 

poke sd+1,6:pokesd+24,15:pokesd+4, 
129 

poke v+10,176:pokev+ll,79:pokev+21 
,33:for i=6 to 15step.3:pokesd+24, 
i: next 

poke v+14,176:pokev+15,79:pokev+21 

,129:fori=0to40:next 

poke v+12,176:pokev+13,79:pokev+21 

, 193:fori=0to40:next 

poke v+14,164;pokev+15,69:pokev+29 

,128:pokev+23,128 

for i=15 to Ostep-.15:pokesd+24,i: 
next 

for i=0to 5:next 

pokesd+24,0:pokev+21,1:pokev+29,0: 

pokev+23,0:a=0 

return 

rem 

print"[HOME][9xCRSR-DOWN]" 

poke sd+4,129;pokesd+5,15:pokesd+l 

,40:pokesd,200 

print"[CTRL-3][14xCRSR-RIGHT]NN[9x 

CRSR-RIGHT]MM" 

pokesd+24,2 

print"[3xCRSR-UP][15xCRSR-RIGHT]NN 
[ 7xCRSR-RIGHT] MM" 
poke sd+24,5 

print"[2xCRSR-UP][16xCRSR-RIGHT]NN 
[5xCRSR-RIGHT]MM" 
poke sd+24, 9 

print"[2xCRSR-UP][17xCRSR-RIGHT]NN 
[3xCRSR-RIGHT]MM" 
poke sd+24, 13 


40 


89 


















90 


print"[2xCRSR-UP][18xCRSR-RIGHT]NN 
[CRSR-RIGHTJMM" 

I 91 poke sd+24,15 

I 92 print"[2xCRSR-UP][19xCRSR-RIGHT]Nx 

M" 

93 print"[HOME][9xCRSR-DOWN]" 

94 print"il4xCRSR-RIGHT][2xSPACE][9xC * 
RSR-RIGHT][2xSPACE]" 

95 pokesd+24,15 

96 print"[3xCRSR-UP][15xCRSR-RIGHT][2 
xSPACE][7xCRSR-RIGHT][2xSPACE]" 

97 poke sd+24,13 

98 print"[2xCRSR-UP][16xCRSR-RIGHT][2 
xSPACE][SxCRSR-RIGHT][2xSPACE]" 

99 poke sd+24,9 

100 print"[2xCRSR-ÜP][17xCRSR-RIGHT][2 
xSPACE][3xCRSR-RIGHT][2xSPACE]" 

101 poke sd+24,5 

102 print"[2xCRSR-UP][18xCRSR-RIGHT][2 
xSPACE][CRSR-RIGHT][2xSPACE]" 

103 poke sd+24,0 

104 print"[2xCRSR-UP][19xCRSR-RIGHT][3 
xSPACE]" 

105 if x>163 and x<195 andy>65andy<93t 
hengosub56 

106 return 

107 rem 

108 f=500:a=0 

109 yr=0:ti$="000000":n=0 

110 x=int(348*rnd(1)):xe=x:xp=x 

111 if x=<255 then si=0 

112 if x>255 then x=x-256:si=2 

113 y=int{150*rnd(l)) 

114 xr=1558+int(xe*12/347) 

115 poke xr,160:pokexr+54272,5 

116 xd=1558+int(xp*12/347) 

117 pokexd,87:pokexd+54272, 6 

118 rem 

119 poke 2041,241+n:pokev+2,x:pokev+3, 

y 

120 poke v+21,3:pokev+16, si 

121 jy=notpeek(56320)andl5 

122 if jyandlthengosub48 

123 if jyand2thengosub52 

124 if jyand4thengosub37 

125 if jyand8thengosub25 

126 ifnotpeek(56320)andl6thengosub79 

127 ifa=2thengosub66:gotol09 

128 pokesd+1,100:pokesd+5,219:pokesd+l 
5,28:pokesd+24,15:pokes+4,19 

129 cl=val(right$(ti$, 2)) 

130 gosub 61:iff<lthenl69 

131 ifcl/4=int(cl/4)thenn=int(cl/4):yr 
=n 

132 if n>3 then n=3 

133 if yr<8 then 136 

134 pokev+21,1:pokexd+2 80,160:pokexd+5 
4272+280,5 

135 for n=l to2000:next:a=0:gotol09 

136 rem 

137 m=int(rnd(1)*4)+1 

138 on m gosub 25,37,48,52 

139 goto 118 

140 rem 

141 print"[SHIFT-CLR][lOxSPACE][COM-2] 
[CTRL-9][SHIFT-|][ISxSPACE][COM-*] 
[CTRL-0]" 

142 print"[9xSPACE][CTRL-9][SHIFT- | ][C 
TRL 0][SHIFT-li[18xSPACE][COM-*][C 
TRL 9][COM-*][CTRL-0]" 

143 print"[SxSPACE][CTRL-9][SHIFT- | ][C 


TRL 0][SHIFT-|][20xSPACE][COM-*][C 
TRL 9][COM-*][CTRL-0]" 

144 print"[7xSPACE][CTRL-9][SHIFT- | ][C 
TRL 0][SHIFT- | ][22xSPACE][COM-*][C 
TRL 9][COM-*][CTRL-0]" 

145 print"[6xSPACE][CTRL-9][SHIFT-]][C 
TRL 0][SHIFT-j][24xSPACE][COM-*][C 
TRL 9][COM-*][CTRL-0]" 

146 print"[SxSPACE][CTRL-9][SHIFT-j][C 
TRL 0][SHIFT-j][26xSPACE][COM-*][C 
TRL 9][COM-*][CTRL-0]" 

147 print"[4xSPACE][CTRL-9][SHIFT-j][C 
TRL 0][SHIFT-j][28xSPACE][COM-*][C 
TRL 9][COM-*][CTRL-0]" 

148 print"[3xSPACE][CTRL-9][SHIFT-j][C 
TRL 0][SHIFT-|][30xSPACE][COM-*][C 
TRL 9][COM-*][CTRL-0]" 

149 print"[2xSPACE][CTRL-9][SHIFT- | ][C 
TRL 0][SHIFT-I][32xSPACE][COM-*][C 
TRL 9][COM-*][CTRL-0]" 

150 print"[SPACE][CTRL-9][SHIFT-j][CTR 
L 0][SHIFT-j][34xSPACE][COM-*][CTR 
L 9][COM-*][CTRL-0]" 

151 print"[CTRL-9][SHIFT- | ][CTRL-0][SH 
IFT I][36xSPACE][COM-*][CTRL-9][CO 
M *][CTRL-0]"; 

152 print"[CTRL-9][40xSPACE]"; 

153 print"[CTRL-9][12xSPACE][CTRL-6][1 
6xSPACE][COM-2][12xSPACE]"; 

154 print"[CTRL-9][12xSPACE][CTRL-6][1 
6xSPACE][COM-2][12xSPACE]"; 

155 print"[CTRL-9][12xSPACE][CTRL-6][1 
6XSPACE][COM-2][12xSPACE]"; 

156 print"[CTRL-9][2xSPACE][4xCOM-P][6 
xSPACE][CTRL-6][16xSPACE][COM-2][5 
xSPACE][5xCOM-P][2xSPACE]"; 

157 print"[CTRL-9][2xSPACE][CTRL-3]fue 
1[COM-2][5xSPACE]>[CTRL-6][16xSPAC 
E][COM-2]<[4xSPACE][CTRL-3]score[C 
OM 2][2xSPACE]"; 

158 print"[CTRL-9][2xSPACE][CTRL-3][SP 
ACE]500[COM-2][6xSPACE][CTRL-6][16 
xSPACE][COM-2][SxSPACE][CTRL-3][SP 
ACE]0[3xSPACE][COM-2][2xSPACE]"; 

159 print"[CTRL-9][2xSPACE][4xCOM-Y][6 
xSPACE][CTRL-6][16xSPACE][COM-2][5 
XSPACE][5XCOM-Y][2xSPACE]"; 

160 print"[CTRL-9][2xSPACE][SHIFT-SPAC 
E][9xSPACE][CTRL-6][16xSPACE][COM- 
2][12xSPACE]"; 

161 print"[CTRL-9][SxSPACE][SHIFT-SPAC 
E][SxSPACE][CTRL-6][16xSPACE][COM- 
2] [12xSPACE]"; 

162 print"[CTRL-9][12xSPACE][CTRL-6][7 
xSPACE][CTRL-3]~[CTRL-6][SxSPACE][ 
COM-2][12xSPACE]"; 

163 print"[CTRL-9][12xSPACE][CTRL-6][1 
6xSPACE][COM-2][12xSPACE]"; 

164 print"[CTRL-9][12xSPACE][CTRL-6][5 
xSPACE][CTRL-7]radar[CTRL-6][6xSPA 
CE][COM-2][12XSPACE]"; 

165 print"[CTRL-9][39xSPACE][HOME]"; 

166 poke 2023,160:poke56295,9 

167 poke 2040,240:pokev+39,1:pokev,176 
:pokev+l,79:pokev+21,1 

168 return 

169 rem 

170 poke v+21,0:for l=0to 24:poke sd+ 
1,0:next 

171 poke sd+14,5:pokesd+18,16:pokesd+3 
,1:pokesd+24,143:pokesd+6,240:poke 




















172 

173 


print-out print-out print-out print-out print-out 


sd+4,65 
fr=5389 

for i=0to 70:poke53265,peek(53265 
)and239 

174 fq=fr+peek(sd+27)*3.5:hf=int(fq/25 
6):l£=£q-h£*256 

175 poke sd,If:pokesd+l, hf 

176 poke 53265,peek(53265)orl6 

177 nexti 

178 poke sd+24,0 

179 print"[SHIFT-CLR]" 

180 print"[CTRL-7]score[SPACE]:[4xSPAC 
E]";sc "punten" 

181 print:print"je[SPACE]hebt[SPACE]"; 
sh "s chepen[SPACE]geraakt." 

182 if hi<sc then hi=sc 

183 print"[6xCRSR-DOWN][CTRL-3]hi-scor 
e=[SPACE][CTRL-9]";hi 

184 x=fre(0) 

185 print:print"nog[SPACE]een[SPACE]ke 
er? " 

186 get a$:i£ a$=""thenl86 

187 if a$="j"then print"[SHIFT-CLR]g 
otol4 

188 if a$="n"then end 

189 goto 186 

190 return 

191 return 

192 for s=15360tol5422:readq:pokes, q;n 
ext 

193 for s=15424tol5486:readq;pokes,q:n 
ext 

194 for s=15488tol5550:readq:pokes,q:n 
ext 

195 for s=15552tol5614:readq:pokes,q;n 
ext 

196 for s=15616tol5678:readq;pokes,q:n 
ext 


56, 56 

211 data 0,112,28,0,224,12,0,192,4,0,1 
28,0,0,0,0,0,0,0,0,0 

212 data 0,0,0,2,0,64,6,0,96,14,126,11 
2,30,36,120,60,24,60,120,126,30,14 
4,153 

213 data 9,159,153,249,160,153,5,160,1 
53,5,159,153,249,145,90,137,121,36 
, 158 

214 data 60,24,60,30,0,120,14,0,112,6, 
0,96,2,0,64,0,0,0,0,0,0 

215 data 144,0,0,36,32,132,15,3,198,30 
,9,224,61,17,242,120,112,120,240,1 
68, 60 

216 data 175,39,196,161,36,68,161,36,6 
8,175,39,196,248,168,125,60,114,13 
6,30, 1 

217 data 177,79,10,232,7,115,192,3,2,1 
28, 0,32,16, 2,0, 0, 0,4,2, 96, 97, 4 

218 data 144,0,0,36,39,132,136,3,192,2 
4,9,128,61,17,242,26,112,0,240,168 
,60,169 

219 data 39,4,32,0,64,161,36,68,35,36, 
196,120,168,125,0,114,136,30,1,170 
,79,10 

220 data 0,7,115,198,3,2,128,3,160,16, 
2,0,0,0,4,2,96, 97,4 

221 data 144,0,72,36,32,4,136,2,16,24, 
9,128,5,17,242,26,112,0,242,40,60, 
169,32 

222 data 4,32,0,64,161,36,68,35,36,196 
, 64,168, 125, 0,18,136, 30, 1, 177,67, 1 
0 , 0 , 6 

223 data 19,192,36,2,128,192,160,16,2, 
0, 0, 0, 4,2, 96, 97,4 

224 return 

EINDE LISTING battlestar 



197 

198 

199 

200 


201 


202 

203 


204 


205 

206 


207 


for s=15680tol5742;readq:pokes,q:n 
ext 

for s=15744tol5806:readqipokes, q;n 
ext 

for s=15808tol5870:readq:pokes,q:n 
ext 

data 136, 0, 17,80,0, 10,32,0, 4,64,0, 
2,128,0,1,0,0,0,0,0,0,0,24,0,0,66, 
0,0 

data 0, 0,168, 153,21,0,0,0,0,66,0, 0 
,24,0,0,0,0,0,0,0,128,0,1,64,0,2,3 
2,0 

data 4,80,0,10,136,0,17 
data 0 , 0 ,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,32,64,0,79,32,0,134,1 
6 , 0 

data 255,240,0,150,144,0,64,32,0,3 
2,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
, 0 , 0,0 

data 0,0,0,0 

data 0,0,0,0,0,0,0,0,0,9,242,0,24, 
163,0,56,67,128,112,225,192,161,80 
, 160 

data 159,95,32,159,95,32,160,160,1 
60,112,65,192, 56, 3, 128,24,3, 0, 8,2, 
0 , 0,0 

data 0 , 0 , 0 , 0 ,0,0,0,0,0,0,0,0,0,0,0 
, 0 

data 0,0,0,0,0,0,0,0,0,4,0,128,12, 
252,192,28,72,224,56,48, 112,112,12 
0,56 

data 160,180,20,159,183,228,160,18 
0,20,159,183,228,162,73,20,114,49, 


208 


209 


210 



































Checksum Battlestar 


REGEL 139 
REGEL 140 
REGEL 141 
REGEL 142 
REGEL 143 
REGEL 144 
REGEL 145 
REGEL 146 
REGEL 147 
REGEL 148 
REGEL 149 
REGEL 150 
REGEL 151 
REGEL 152 
REGEL 153 
REGEL 154 
REGEL 155 
REGEL 156 
REGEL 157 
REGEL 158 
REGEL 159 
REGEL 160 
REGEL 161 
REGEL 162 
REGEL 163 
REGEL 164 
REGEL 165 
REGEL 166 
REGEL 167 
REGEL 168 
REGEL 169 
REGEL 170 
REGEL 171 
REGEL 172 
REGEL 173 
REGEL 174 
REGEL 175 
REGEL 176 
REGEL 177 
REGEL 178 
REGEL 179 
REGEL 180 
REGEL 181 
REGEL 182 
REGEL 183 
REGEL 184 


REGEL 93 
REGEL 94 
REGEL 95 
REGEL 96 
REGEL 97 
REGEL 98 
REGEL 99 
REGEL 100 
REGEL 101 
REGEL 102 
REGEL 103 
REGEL 104 
REGEL 105 
REGEL 106 
REGEL 107 
REGEL 108 
REGEL 109 
REGEL 110 
REGEL 111 
REGEL 112 
REGEL 113 
REGEL 114 
REGEL 115 
REGEL 116 
REGEL 117 
REGEL 118 
REGEL 119 
REGEL 120 
REGEL 121 
REGEL 122 
REGEL 123 
REGEL 124 
REGEL 125 
REGEL 126 
REGEL 127 
REGEL 128 
REGEL 129 
REGEL 130 
REGEL 131 
REGEL 132 
REGEL 133 
REGEL 134 
REGEL 135 
REGEL 136 
REGEL 137 


REGEL 47 
REGEL 48 
REGEL 49 
REGEL 50 
REGEL 51 
REGEL 52 
REGEL 53 
REGEL 54 
REGEL 55 
REGEL 56 
REGEL 57 
REGEL 58 
REGEL 59 
REGEL 60 
REGEL 61 
REGEL 62 
REGEL 63 
REGEL 64 
REGEL 65 
REGEL 66 
REGEL 67 
REGEL 68 
REGEL 69 
REGEL 70 
REGEL 71 
REGEL 72 
REGEL 73 
REGEL 74 
REGEL 75 
REGEL 76 
REGEL 77 
REGEL 78 
REGEL 79 
REGEL 80 
REGEL 81 
REGEL 82 
REGEL 83 
REGEL 84 
REGEL 85 
REGEL 86 
REGEL 87 
REGEL 88 
REGEL 89 
REGEL 90 
REGEL 91 
REGEL 92 


REGEL 1 
REGEL 2 
REGEL 3 
REGEL 4 
REGEL 5 
REGEL 6 
REGEL 7 
REGEL 8 
REGEL 9 
REGEL 10 
REGEL 11 
REGEL 12 
REGEL 13 
REGEL 14 
REGEL 15 
REGEL 16 
REGEL 17 
REGEL 18 
REGEL 19 
REGEL 20 
REGEL '21 
REGEL 22 
REGEL 23 
REGEL 24 
REGEL 25 
REGEL 26 
REGEL 27 
REGEL 28 
REGEL 29 
REGEL 30 
REGEL 31 
REGEL 32 
REGEL 33 
REGEL 34 
REGEL 35 
REGEL 36 
REGEL 37 
REGEL 38 
REGEL 39 
REGEL 40 
REGEL 41 
REGEL 42 
REGEL 43 
REGEL 44 
REGEL 45 
REGEL 46 


REGEL 186 
REGEL 187 
REGEL 188 
REGEL 189 
REGEL 190 
REGEL 191 
REGEL 192 
REGEL 193 
REGEL 194 
REGEL 195 
REGEL 196 
REGEL 197 
REGEL 198 
REGEL 199 
REGEL 200 
REGEL 20r 
REGEL 202 
REGEL 203 
REGEL 204 
REGEL 205 
REGEL 206 
REGEL 207 
REGEL 208 
REGEL 209 
REGEL 210 
REGEL 211 
REGEL 212 
REGEL 213 
REGEL 214 
REGEL 215 
REGEL 216 
REGEL 217 
REGEL 218 
REGEL 219 
REGEL 220 
REGEL 221 
REGEL 222 
REGEL 223 
REGEL 224 


Geochart-64 


Geef Uw numerieke data een visuele impact met GEOCHART. Laadt data van GEOS 64, GEOS 128, 
GEOWRITE WORKSHOP 64, GEOWRITE WORKSHOP 128, GEOFILE 64, GEOFILE 128, GEO- 
CALC 64, GEOCALC 128. GEOCHART 64. Verwerkt de numerieke data tot - puntdiagrammen 

- staafdiagrammen 

- taartdiagrammen 

- unibars scatter puntkaarten 

- scatter lijnkaarten 

- puntkaarten 

- lijnkaarten. 


te laden en te gebruiken in: GEOPAINT, GEOWRI 


De gemaakte diagrammen en kaarten zijn o.a. in 
TE en GEOPUBLISH en uiteraard af te drukken met de GEOS-Compatible printers. Het pakket steunt 
alle 53 fonts van GEOS DESKPACK ■^. De gebruiks¬ 
aanwijzing omvat maar liefst 115 pagina’s. 

GEOCHART-64 kost ƒ 8Q — 

(incl. verzendkosten) J 

Te bestellen door overmaking t.g.v. giro 5641219 van Sala- 
san Amsterdam t.n.v. GEOS 2.0 


SALASAN 


Amsterdam Giro 5641219, Tel. 020-203219 

















PRINT OUT C-16 "1®* Header plus 


1 


Checksum cl 6 

[ 370 

data 

6,240, 6, 32,210 




380 

data 

255,232,208,245, 32 

10 

rem 

****************************** 

390 

data 

73, 6,170, 32, 73 


A A A 


400 

data 

6,132,253, 32, 95 

20 

rem 

syntax.checksum 

410 

data 

164,162, 3,169, 32 

30 

rem 

voor c-16 & plus/4 

420 

data 

32,210,255,202,208 

40 

rem 


430 

data 

250,169, 0,133,252 

50 

rem 

syntax testen met 'sys 1536' 

440 

data 

164,253, 96, 82, 69 

&0 

rem 


450 

data 

71, 69, 76, 32, 0 

70 

rem 

V.851128.16 jan bodzinga 

460 

data 

0, 72,138, 72, 32 

80 

rem 

****************************** 

470 

data 

225,255,240,251,104 




480 

data 

170,104, 96, -1 

90 

1=1536 :rem beginadres 





100 reada;ifa>=0then pokei,a:i=i+l:got 
olOO 


EINDE LISTING checks16 


110 print"data[SPACE]is[SPACE]weggezet 

120 print" cheksiim [ SPACE ] printen [ SPACE ] 

met[SPACE]'sys[SPACE]1536' 


130 

end 




200 

data 

165, 

43,166, 44,133 

210 

data 

31,134, 

32,169,147 

220 

data 

32,210,255,160, 0 

230 

data 

240, 

3, 

32, 73, 6 

240 

data 

32, 

73, 

6,208, 1 

250 

data 

96, 

72,152, 32,131 

260 

data 

6, 

168,104,234, 32 

270 

data 

81, 

6, 

32, 73, 6 

280 

data 

240, 

12,201, 32,240 

290 

data 

247, 

24,101,252,133 

300 

data 

252, 

76, 

37, 6,166 

310 

data 

252,169, 

0,132,253 

320 

data 

32, 

95, 

164,169, 13 

330 

data 

32,210,255,164,253 

340 

data 

76, 

17, 

6,200,208 

350 

data 

2, 

230, 

32,177, 31 

360 

data 

96,162, 

0,189,123 



Header Plus c16 


Het veranderen van de naam van een disk is al 
verschillende malen aanbod gekomen. Voor de C16 
hebben we het niet eerder gezien. Het programma 
van B.W. Kemps uit Schiedam is volledig menu ge¬ 
stuurd en kan de naam maar ook het id nummer van 
een disk veranderen. Extra hierbij is dat het id num¬ 
mer normaal maar twee karakters is, hierbij 5 karak¬ 
ters lang mag zijn. Denk er wel om dat een id num¬ 
mer niet altijd straffeloos veranderd mag worden. 


0 

rem:::::: 







1 

rem:::::: 







2 

rem:rename 

header 

+ 

5 

karakters 

id 

3 

rem: : 
















4 

rem: : 





bart-wouter 

kemps 







5 

rem: : 
















6 

rem: : 
















7 

rem: : 
















8 

rem: : 

















9 : 

100 keyl,"[Fl]":key2,"[F3]" 

110 xl=l.x2=10 

120 dimhe$ (21) , j.d$ (5) 

130 fora=lto21 he$(a)=mid$( 'commodore[ 

SPACE]info[2xSPACE]kemps", a, 1) •next 
140 Culoi0,2,6 color4 2,6 

150 printchr$(27)"m[CTRL-H][CTRL-N][CT 
RL 1][2xHOME][SHIFT-CLR][CTRL-9][C 
OM A][38xSHIFT-*][COM-S]" 


Checksum checksum C-16 


REGEL 

10 

249 

REGEL 

280 

186 

REGEL 

20 

247 

REGEL 

290 

248 

REGEL 

30 

121 

REGEL 

300 

118 

REGEL 

40 

143 

REGEL 

310 

204 

REGEL 

50 

75 

REGEL 

320 

165 

REGEL 

60 

143 

REGEL 

330 

252 

REGEL 

70 

8 

REGEL 

340 

106 

REGEL 

80 

249 

REGEL 

350 

98 

REGEL 

90 

103 

REGEL 

360 

163 

REGEL 

100 

2 

REGEL 

370 

45 

REGEL 

110 

245 

REGEL 

380 

0 

REGEL 

120 

237 

REGEL 

390 

58 

REGEL 

130 

128 

REGEL 

400 

108 

REGEL 

200 

210 

REGEL 

410 

159 

REGEL 

210 

208 

REGEL 

420 

245 

REGEL 

220 

142 

REGEL 

430 

202 

REGEL 

230 

1 

REGEL 

440 

176 

REGEL 

240 

3 

REGEL 

450 

12 

REGEL 

250 

157 

REGEL 

460 

54 

REGEL 

260 

155 

REGEL 

470 

43 

REGEL 

270 

215 

REGEL 

480 

1 


160 fora=lto23 

170 print"[CTRL-9][SHIFT--]"tab(39)"[S 
HIFT -]" 

180 next 

190 print"[CTRL-9][COM-Z][38xSHIFT-*][ 
COM-X][CRSR-UP][CRSR-LEFT]"chr$(27 
)"b[HOME][CRSR-DOWN][CRSR-RIGHT]"c 
hr$(27)"t" 

200 print"[CRSR-DOWN][COM-7][2XSPACE][ 
COM-A][14xSHIFT-*][COM-S][2xSPACE] 
[COM-A][14xSHIFT-*][COM-S]" 

210 print"[2xSPACE][SHIFT—][14xSPACE] 
[SHIFT—][2xSPACE][SHIFT—][14xSPA 
CE][SHIFT—]" 

220 print"[2xSPACE][SHIFT—][2xSPACE][ 
CTRL-3]Fl[SPACE]TO[SPACE]LOAD[COM- 
7][2xSPACE][SHIFT--][2xSPACE][SHIF 
T -][2xSPACE][CTRL-3]F2[SPACE]TO[S 
PACE]SAVE[COM-7][2xSPACE][SHIFT—]" 

230 print"[2xSPACE][SHIFT—][14xSPACE] 
[SHIFT—][2xSPACE][SHIFT—][14xSPA 
CE][SHIFT—]" 

240 print"[2xSPACE][COM-Z][14xSHIFT-*] 
[COM-X][2XSPACE][COM-Z][14xSHIFT-* 

][COM-X]" 

250 print'[2xCRSR-DOWN][2xSPACE][COM-A 
][32xSHIFT-*][COM-S]" 

260 print"[2xSPACE][SHIFT--][32xSPACE] 
[SHIFT—]" 

270 print"[2xSPACE][SHIFT—][3xSPACE][ 
CTRL-3]RENAME[SPACE]HEADER[SPACE]+ 
[SPACE]5[SPACE]CHARS[SPACE]ID[COM- 




















































280 


pnnt-out print-out prmt-out print-out print-out 


280 

7][3xSPACE][SHIFT--]" 
print"[2XSPACE][SHIFT--][32XSPACE] 
[SHIFT—]" 



290 

print"[2xSPACE][COM-Z][32xSHIFT-*] 
[COM-X]" 



300 

print"[2XCRSR-DOWN][2xSPACE][COM-A 
][32XSHIFT-*][COM-S]" 



310 

print"[2xSPACE][SHIFT--][32xSPACE] 
[SHIFT—]" 



320 

print"[2xSPACE][SHIFT—][32xSPACE] 
[SHIFT—]" 



330 

print"[2xSPACE][SHIFT—][32xSPACE] 
[SHIFT--]" 



340 

print"[2xSPACE][COM-Z][32xSHIFT-*] 
[COM-X]" 



350 

charl,7,19,"[CTRL-3]0[SPACE][CTRL- 
9] "+chr$(34) 



360 

fora=ltol6:charl,9+a,19,he$(a):next 



370 

printchr$(34)"[SPACE]"; 



380 

fora=17to21:printhe$(a);:next 



390 

charl,x2,19,"[CTRL-1][CTRL-9]"+he$ 
(xl)+chr$(27)+"o" 



400 

geta$ 



410 

ifa$="[Fl]"then700 



420 

ifa$="[F3]"then900 



430 

ifa$="[CRSR-RIGHT]"then500 



440 

ifa$="[CRSR-LEFT]"then550 



450 

ifasc(a$)>31andasc(a$)<96then490 



460 

ifasc(a$)>160andasc(a$)<224then490 



470 

ifa$=chr$(20)thenhe$(xl)="[SPACE]" 




:goto550 

750 

print#15,"b-p:"2;162 

480 

goto400 

760 

fora=lto5 

490 

he$(xl)=a$ 

770 

get#2,he$(16+a):next 

500 

charl,x2,19,"[CTRL-3][CTRL-9]"+he$ 

780 

print#15,"u2:";2;d;18;0 


(xl)+chr$(27)+"o" 

790 

close2;print#15,"iO":closelS 

510 

xl=xl+l:ifxl=22thenxl=l 

800 

xl=l;x2=10:goto350 

520 

x2=x2+l:ifx2=33thenx2=10 

810 


530 

ifx2=26thenx2=28 

900 

openis,8,15:open2,8,2,"#" 

540 

goto390 

910 

print#15,"ui:";2;d;18;0 

550 

charl,x2,19,"[CTRL-3][CTRL-9]"+he$ 

920 

print#15,"b-p:"2;144 


(xl)+chr$(27)+"o" 

930 

fora=ltol6 

560 

xl=xl-l:ifxl=0thenxl=21 

940 

print#2,he$(a);:next 

570 

x2=x2-l;ifx2=9thenx2=32 

950 

print#15,"b-p:"2;162 

580 

ifx2=27thenx2=25 

960 

fora=lto5 

590 

goto390 

970 

print#2,he$(16+a);:next 

600 

980 

print#15,"u2:";2;d;18;0 

700 

openis,8,15:open2,8,2,"#" 

990 

close2:print#15,"iO":closelS 

710 

print#15,"ui:";2; d;18; 0 

995 

goto350 

720 

print#15,"b-p:"2;144 



730 

fora=ltol6 

EINDE 

LISTING header plus 


740 qet#2,he$(a):next 


Checksum Header plus 


REGEL 

0 

207 

REGEL 

210 

81 

REGEL 

420 

172 

REGEL 

720 

109 

REGEL 

1 

207 

REGEL 

220 

65 

REGEL 

430 

63 

REGEL 

730 

176 

REGEL 

2 

27 

REGEL 

230 

81 

REGEL 

440 

196 

REGEL 

740 

33 

REGEL 

3 

207 

REGEL 

240 

177 

REGEL 

450 

173 

REGEL 

750 

109 

REGEL 

4 

235 

REGEL 

250 

93 

REGEL 

460 

9 

REGEL 

760 

126 

REGEL 

5 

207 

REGEL 

260 

151 

REGEL 

470 

161 

REGEL 

770 

50 

REGEL 

6 

158 

REGEL 

270 

140 

REGEL 

480 

29 

REGEL 

780 

42 

REGEL 

7 

207 

REGEL 

280 

151 

REGEL 

490 

162 

REGEL 

790 

51 

REGEL 

8 

207 

REGEL 

290 

71 

REGEL 

500 

152 

REGEL 

800 

158 

REGEL 

9 

58 

REGEL 

300 

93 

REGEL 

510 

22 

REGEL 

810 

58 

REGEL 

100 

122 

REGEL 

310 

151 

REGEL 

520 

76 

REGEL 

900 

91 

REGEL 

110 

67 

REGEL 

320 

151 

REGEL 

530 

124 

REGEL 

910 

41 

REGEL 

120 

78 

REGEL 

330 

151 

REGEL 

540 

37 

REGEL 

920 

109 

REGEL 

130 

17 

REGEL 

340 

71 

REGEL 

550 

152 

REGEL 

930 

176 

REGEL 

140 

236 

REGEL 

350 

1 

REGEL 

560 

21 

REGEL 

940 

48 

REGEL 

150 

250 

REGEL 

360 

12 

REGEL 

570 

36 

REGEL 

950 

109 

REGEL 

160 

174 

REGEL 

370 

151 

REGEL 

580 

122 

REGEL 

960 

126 

REGEL 

170 

37 

REGEL 

380 

240 

REGEL 

590 

37 

REGEL 

970 

65 

REGEL 

180 

130 

REGEL 

390 

12 

REGEL 

600 

58 

REGEL 

980 

42 

REGEL 

190 

104 

REGEL 

400 

6 

REGEL 

700 

91 

REGEL 

990 

51 

REGEL 

200 

68 

REGEL 

410 

169 

REGEL 

710 

41 

REGEL 

995 

33 









Een C128 scherm in 80 kolommen op de printer afdrukken is op zich niet zo moeiijk. 
Er zijn echter wel zestien manieren voor, en Johan & Johan laten zien hoe dat werkt. 


Schermen dumpen 

Grafisch printen met de 128 

M et de door ons geïntroduceerde ‘grafische schermdumper’ voor de C128 
en voor de printer eindelijk het moment is aangekomen om ook eens 
wat 80 cis schermen voor u uit te printen. Niet dat dit zo bijzonder is, ware 
het niet dat er maar liefst 16 verschillende uitdraai manieren mogeiijk zijn. 

Met een Panasonic printer komen er daar nog een aantal extra bovenop. En 
om de ongefortuneerde onder ons die (nog) geen Epson compatibele prin¬ 
ter bezitten, direct even dit. Dan werkt ons programma niet! Waarom niet? 

Gewoon omdat wij alleen Epson-, Panasonic-, NEC- en Star printers tot onze 
beschikking hadden. Helaas maar waar. 


Epson compatibel 

Epson is een printergigant die vele 
goede, vaak wat duurdere, printers fa¬ 
briceert. Epson gebruikt de zoge¬ 
naamde standaard in besturing op¬ 
drachten. Deze besturing opdrachten, 
u kunt ze vinden in uw handleiding 
wanneer u een Epson kompatibel 
printer bezit, deze dienen voor de be¬ 
sturing van de printer. U kunt met 
deze opdrachten onder andere de 
printer in de grafische mode zetten. 
Een printer heeft een karakter ROM 
die er voor zorgt dat er letters op uw 
papier verschijnen. Het karakter ‘a’ 
heeft waarde $41. Maar wanneer uw 
printer in de grafische-mode staat zal 
er zr zeker geen ‘a’ op uw papier ver¬ 
schijnen. $41 is decimaal 65, het tal¬ 
stelsel waar wij normaliter vertrouwd 
mee behoren te zijn. Wanneer we er 
nu vanuit gaan dat uw printer in de 
grafische mode staat, kunnen we zeg¬ 
gen dat bij het versturen van $41 er 
geen ’a’ maar 2 lijnen onder elkaar op 
het papier verschijnen. Elke matrix 
printer heeft ‘pennen’ die er voor zor¬ 
gen dat de data op uw papier komt. 
Deze 'pennen’ bevinden zich in de 
printkop van de printer. Met behulp 
van deze pennen kunt u, via de karak- 
terrom, karakters op het papier laten 
verschijnen. In de grafische werk- 
stand worden er dan 7, 8, 9 of zelfs 24 
pennen aangestuurd. De meest ge¬ 
bruikte is de 8 bit mode. Hierdoor zal 
een 9 pins matrix printer de onderste 
pen ’links’ laten liggen. Alleen de eer¬ 
ste 8 pennen worden dus gebruikt bij 
het grafische printen. Nogmaals niet 
altijd maar vaak wel. Er zijn diverse 
stuurcodes voor dot matrix printers, 


de meest belangrijke hiervan van zul¬ 
len we even voor u opsommen. 
STANDARD DENSITY GRA- 
PHICS:’ESC+K, ESC+L, ESC-rY, 
ESC+Z’ en verder een hele handige 
’ESC+I’. 

Deze stuurcodes, of multibyte codes, 
met de zogenaamde escape-sequen- 
ce zijn zr belangrijk voor de printer be¬ 
sturing. 

De hierboven afgedrukte stuurcodes 
zijn voor ons, voor nu, het meest nut¬ 
tig. Over het hoe en waarom straks 
meer. Nu weer even terug naar waar 
we gebleven waren. Voor de handig¬ 
heid gaan we er vanaf nu vanuit dat u 
een 9-pens dot matrix printer heeft! 
De pennen in de printkop worden van 
onderen af aangesproken. U moet 
zich dus gewoon indenken dat er 8 
pennen onder elkaar voor het printen 
zorgdragen. Om elke pen te kunnen 
aansturen moeten we nog een aantal 
zaken weten, daarvoor de onder¬ 
staande tabel. 

PIN 1 2 '^! = 128 
PIN 2 2^7= 64 
PIN 3 2 ’^!= 32 
PIN 4 2V= 16 
PIN 5 2''7= 8 
PIN 6 2^7= 4 
PIN 1 2'^1 = 2 
PIN 8 2''7= 1 

Het dakje is het teken voor ‘tot de 
macht’. Ook wordt hiervoor wel eens 
’**’ gebruikt! Tot zover deze toelich¬ 
ting. 

Elke pen kunnen we apart aansturen. 
Om alleen met pin ‘1 ’ een lijn te trek¬ 
ken op papier, hoeft u niet meer te 
doen dat een aantal maal decimale 


127 naar de printer te sturen. De prin¬ 
ter zal de rest doen. Om een dikke 
streep op papier te krijgen stuurt u ge¬ 
woon de waarde van pin‘T-1 en pin 
’2’-1, die daaronder ligt, naar de prin¬ 
ter. De printer gaat er vanuit dat het 
tal-stelsel bij 0 start. Wij hebben de 
gewoonte 1234 enz enz te gebruiken. 
Denkt u daar dus wel even om ok! 128 
wordt dus 127, 64 wordt dus 63 enz 
enz. 

De printermode 

Om de printer grafisch te kunnen laten 
uitprinten moeten we hem natuurlijk 
eerst een opdracht geven die dat mo¬ 
gelijk maakt. Voor het gemak gebruikt 
u : ESC-H*-i-mode-i-n1+n2’ De waarde 
van ‘mode’ is variabel. Dat wil zeggen 
dat de maximale in te geven waarde 
soms hoger mag zijn dan bij de Epson 
printer. Epson hanteert vier grafische 
werkstanden. Panasonic zeven en Ci¬ 
tizen acht verschillende grafische 
werkstanden. Welke printer u nu heeft 
bepaalt mede of u al dan niet met 
onze schermdumper kunt gaan wer¬ 
ken. Maar wees gerust want negen 
van de tien printers zijn Epson kompa¬ 
tibel. Ook de ‘ordinaire papiervreter’ 
van de dozen dumpers in het land! En 
moet u nog een printer kopen, koop 
dan in ieder geval een printer met een 
Centronics-parallel aansluiting, en 
een printer die Epson compatibel is. 
Dan zit u met een eventuele doorgroei 
naar een PC/XT of AT ook direct op 
het juiste spoor. Dan zal het niet direct 
een 264 tekens per seconde printer 
worden maar ‘gewoon’ een stuk of 
180. Heel langzamerhand is de 24- 
pins dotmatrix printer de 9 pins printer 
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1000 BNKO 

1010 ORG$OBOO 

1020 ; 

1030 BEVERSE EQU $40 
1040 MAAT EQU $41 
1050 RICHTING EQU $42 
1060 AANTAL PRT EQU $43 
1070 LO_BYTE_COUNT EQU $FB 
1080HI_BYTE_COUNT EQU $FC 
1090 PRTDEVICE EQU $FD 
1100PRTMODE EQU$FE 
1110INITSCRN EQU$C027 


;bank O 

;startadres is $0B00 


;flag voor reverse uitprinten 
;zeropage voor de groote van de afdruk 
;zeropage voor de print richting 

;zeropage aantal bytes naar de printer 
;lo-byte counter 
;hi-byte counter 

;zeropage voor de printer device 
;zeropage voor de printer mode 
;initialize voor de VDC-chip na printen 
1120VDCADR EQU $D600 ;adres register van de VDC-chip 

1130VDCDAT EQU $D601 ;data register van de VDC-chip 

1140l/O_INIT EQU$E109 ;l/0 initialize 
1150CHROUT EQU $E503 ;karakter naar de printer sturen 

1160MMUCR EQU $FF00 ;MMU configuratie register 

1170SETLFS EQU $FFBA ;kernai routine voor logical file 

1180 SETNAM EQU $FFBD ;kernal routine voor file naam 
1190 OPEN EQU $FFC0 ;kernal OPEN routine 
1200 CLOSE EQU$FFC3 ;kernal CLOSE routine 

1210 CKOUT EQU $FFC9 ;kernal routine voor uitvoerkanaal kiezen 

1220CLRCH EQU $FFCC ;kernal routine 1/0 kanaal terug zetten 

1221 CHROUT2 EQU $FFD2 ;kernal routine karakter uitvoeren 
1230 ; 

1240 STA PRTMODE ;printer mode (0t/m3) 

1250 STX MAAT ;de afmeting van de afdruk 

1260 STY RICHTING ;recht of gekanteld printen 

1280 LDA #255 ;reverse in de accu laden en 

1290 BCS YES REVERSE ;vervolgens controleren op reverse 

1300 LDA#0 ;mode, zo niet dan de normale mode 

1310 YES_REVERSE STA REVERSE ;inladen en vervolgens wegzetten. 

1320 LDA#0 ;bank15aan 

1330 STA MMUCR ;en wegschrijven in het mmu register 

1340 TAY ;accu naar y-register kopiëren 

1350 LDA #253 ;2MHz mode inschakelen 

1360 STA$D030 ;en wegschrijven 

1370 LDA PRTMODE ;print mode ophalen 

1380 CLC icarry zetten 

1390 CMP#4 ;controleren, waarde groter dan 3? 

1400 BCC NO_ERROR ;nee, dan verder 

1410 JMP CLOSE_DEVICE ;ja, device sluiten 

1420 NO ERROR LDX #25 ;adres 25 van VDC-chip, grafisch scherm 

1430 STX VDCADR ;wegschrijven in adres-register 

1440 LDX #135 ;scherm grafisch 

1450 STXVDCDAT ;wegschrijven in data-register 

1460 LDA #4 ;device4 

1470 TAX ;accu naar x-register kopiëren 

1480 JSRSETLFS ;file openen 

1490 TYA ;y-register (0) naar accu kopiëren 

1500 JSR SETNAM ;geen file naam 

1510 JSR OPEN ;en kanaal openen 

1530 LDX PRTMODE ;printer mode ophalen 

1540 STX PRTJNIT2+2 ;wegschrijven in installatie tabel 

1550 LDX #4 ;device 4 in x-register laden 

1560 CLC ;carry op schoon 

1570 JSR CKOUT ;error controleren 

1580 BCC BEGIN ;goed, dan verder 

1590 CLOSE DEVICE LDA #4 ;accu laden met kanaal nummer 

1600 JSR CLOSE ;en kanaal sluiten 

1610 JSR l/0_INIT ;l/0 initialiseren 

1620 JSR INITSCRN ;scherm initialiseren 

1630 LDA #147 ;scherm schoon 

1640 JMPCHROUT2 ;en uitvoeren 

1650 ; 

1660 BEGIN LDX #7 iprinter in grafische mode zetten 
1670 LOOP1 LDAPRTJNIT1,X ;data uit tabel halen 
1680 JSR CHROUT ,en naar de printer sturen 

1690 DEX ;alies al verstuurd? 

1700 BPL LOOP1 ;zo niet, dan volgende byte versturen 

1710 LDA#0 ;accu laden met 0 

1720 STA LO_BYTE_COUNT ;en 16 bits teiier op 0 zetten 

1730 STAHi BYTE_COUNT 

1740 LDA PRTMODE ;iaad printermode 


aan het inlopen. Maar voordat dat zo¬ 
ver is zijn wij ook al weer een dagje 
ouder, en wijzer geworden. 

Bah, een luis! 

Na experimenteren met onze scherm- 
dumper bleek er een fout in het pro¬ 
gramma te zitten. Wij waren namelijk 
vergeten de niet gebruikte pin spatie 
op te vangen. Alle data werd toen door 
een onderelkaar gescheiden. Natuur¬ 
lijk was dat, toen wij eenmaal zover 
waren, ook geen probleem meer. In 
de handleiding staat immers een op¬ 
dracht die er voor zorg dat ook die 
BUG verdwijnt. Ach het was geen 
BUG, maar meer een schoonheids 
foutje. De opdracht die het werk voor 
ons doet is ’ESC-i-3-i-24’ Beter bekend 
als ’n/216 LINE-SPACING’ bij ervaren 
printer gebruikers. Vierentwintig is 
dus de door ons gebruikte waarde 
voor ’n’. 

Lang geduurd 

Waarom heeft het zo lang moeten du¬ 
ren voordat er een goede scherm- 
dumper werd geschreven voor de 
VDC-chip, want om deze chip draait 
het allemaal. Er zijn volgens ons een 
aantal faktoren die dit hebben be¬ 
paald. Het lange tijd uitblijven van te¬ 
kenprogramma’s voor de grafische 
mode van deze chip. Dit komt weer 
voort uit het feit dat de mogelijkheden 
van de VDC-chip lange tijd zijn onder¬ 
schat. Voor diegene die nu nog niet 
weet waar we het hier over hebben, 
de VDC-chip van uw Cl28 bezit een 
grafische-mode van 640 * 200 pixels!! 
Een andere faktor die het uitblijven 
van een screendumper mede heeft 
bepaald is het feit dat er maar weinig 
mensen zijn die de moeite hebben wil¬ 
len nemen de VDC-chip eens van 
dichtbij te bekijken. En laten we eerlijk 
wezen, uw toekomstige werkgever zal 
niet met een home-computer werken. 
Daarom is het handig op de hoogte te 
blijven van de PC gebeurtenissen. En 
die hebben heel toevallig ook een 
soortgelijke video controller, de 6845 
CRT. Zelfs deze in de PC gebruikte 
chip heeft minder mogelijkheden dan 
uw Cl28 video chip. Maar gelukkig 
voor u waren daar de redders in de 
nood Johan & Johan. WAM, we kun¬ 
nen immers niet altijd bescheiden blij¬ 
ven. (grapje). 

Het programma 

De screendumper is geschreven met 
behulp van de PAST assembler. Dat 
betekent dat u onze routine in uw ei¬ 
gen programmatuur kunt tussen/bij- 
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1750 
1760 
1770 

1780 NO_ 
1790 ; 

1800 PRT 
1810 
1820 
1830 

1840 NEXT 


BEQ NO_ZERO ;printer mode 0 dan gekanteld afprinten 
LDA RICHTING ;laad richting 
BNE PRT M0DE1 ;richting 1 dan recht afprinten 
ZERO JMP PRT_MODE2 ;naar routine gekanteld printen 

WIODEI LDA #2 ;accu laden met 2 (2*256 aantal pixels) 
STA PRTJNIT2 ;tabel aanpassen voor aantal pixels (512) 
LDA #128 ;accu laden met 128 extra pixels 

STA PRTJNIT2+1 .tabel aanpassen voor aantal pixels (640) 
LINE LDX #4 ;printer in gewenste graphic mode zetten 


1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 


1850 LOOP2 LDA PRT INIT2,X ;laad accu met tabel byte 
1860 JSR CHROUT ;naar de printer sturen 

DEX ;x-register aflagen 

BPL LOOP2 ;nog geen 0 dan volgende byte ophalen 
JSR PRINT LINE ;naar subroutine voor data halen (VDC RAM) 
LDA #13 ;accu met carriage-return laden 

JSR CHROUT ;en naar de printer sturen 
LDA Hl BYTE COUNT ;accu laden met hi-byte schermteller 
CMP #60 ;al einde scherm? 

BNE UPDATE_COUNT2 ;zo niet dan lo-byte niet ophogen 
LDA LO_BYTE_COUNT ;accu ladan met lo-byte schermteller 
BEQ EINDE ;lo-byte 0 dan einde 
1970 UPDATE_COUNT2 LDA LO_BYTE_COUNT ;accu laden met lo-byte 
schermteller 

1980 CLC ;carry flag wissen voor optellen 

1990 ADC#128 ;$80 pixels bij lo-byte optellen 

2000 STA LO_BYTE_COUNT ;nieuwe lo-byte wegzetten 

2010 BCC CARRY CLEAR ;geen overflow dan naar carry clear 

2020 INC HI BYTE COUNT ;hi-byte schermteller met 1 ophogen 

2030 CARRY_CLEAR LDA HI_BYTE_COUNT ;schermteller inladen 
2040 CLC ;carry flag wissen 

2050 ADC #2 ;hi-byte schermteller met 2 ophoqen 

2060 STA HI_BYTE_COUNT ;nieuwe hi-byte wegzetten 

2070 JMP NEXT LINE ;spring naar printer init 

2080 EINDE LDX #2 ;afsluit routine 

LDA PRTJNIT3,X ;ESC @ inladen 
JSR CHROUT ;naar printer sturen 
DEX ;alles verstuurd? 

BPL LOOP3 ;zo niet dan volgend karakter halen 
JSR CLRCH ;l/0 kanaal resetten 
JMP CLOSE_DEVICE ;spring naar printer sluit routine 


2090 LOOP3 
2100 
2110 
2120 
2130 
2140 
2150 ; 


2160 PRINT_LINE LDA#0 ;accu laden met 0 
2170 STA$B2 ;telleropnul 

2180 LDA LO_BYTE_COUNT ;lo-byte schermteller ophalen 

2190 STA $B0 ;en kopiëren naar nieuwe teller 

2200 LDA HI_BYTE_COUNT ;hi-byte schermteller ophalen 

STA $B1 ;en kopiëren naar nieuwe teller 
KOLOM LDY #0 ;y-register met 0 laden 
LDA $B0 ;lo-byte kopie teller op 0 zetten 
STA $1F ;lo-byte teller op 0 zetten 
LDA $B1 ;hi-byte kopie teller op 0 zetten 
STA $20 ;hi-byte teller op 0 zetten 


2210 
2220 NEXT 
2230 
2240 
2250 
2260 


2270 UPDATE VDC LDX #18 


;x-register laden met update reg. 18 


2280 LDA $20 ;accu laden met hi-byte scherrriteller 

2290 JSR WRITE VDC ;positie updaten 

2300 INX ;update register ophogen naar 19 

2310 LDA $1F ;accu laden met lo-byte schermteller 

2320 JSR WRITE VDC ;positie updaten 

2330 LDX #31 ;x-register met waarde 31 laden 

2340 JSR READ VDC ;uit data register data ophalen 

2350 STATABELI.Y ;en in tabell op positie y plaatsen 

2360 LDA $1F ;accu laden met lo-byte schermteller 

2370 CLC ;carry flag wissen voor optellen 

2380 ADC #80 ;lo-byte schermteller met 80 ophogen 

2390 STA $1F ;en weer wegzetten 

2400 BCC LOOP11 igeen overflow dan loopll 

2410 INC $20 ;hi-byte schermteller ophogen 

2420 LOOP11 INY ;1 positie verder in tabell 

2430 CPY #8 ;al 8 bytes opgehaald? 

2440 BNE UPDAT_VDC ;zo niet dan volgende ophalen 

2450 DEY ; 

2460 LDA #128 ;laad accu met AND waarde (128) 

2470 STA $FA ;en zet AND waarde op adres $FA 


voegen. Wij hebben de screendumper 
zolang maar op het adres $0B00 ge¬ 
zet. Het is ook mogelijk om het pro¬ 
gramma door middei van FAST in het 
geheugen te verpiaatsen. Het enigste 
wat u hoeft te doen is de ORG $0B00 
te veranderen in het adres waar u de 
screendumper wilt hebben staan. 
Denk er wel om dat u de screendum¬ 
per niet over een ander programma 
zet, want dit heeft soms vreemde ge¬ 
volgen. Voor de gebruikers die niet 
beschikken over de FAST assembler 
is er een basic versie die zich na het 
opstarten zelf op schijf wegschrijft. 
Deze staat natuurlijk om verwarring te 
voorkomen ook op het adres $0B00. 
Het spreekt voor zichzelf dat deze ma¬ 
chinetaal niet zomaar in het geheugen 
verplaatst kan worden. Hier komt na¬ 
melijk wel wat kennis en ervaring bij 
kijken. Beide zijn ze op te starten met 
de basic regel: 

SYS 2816, Mode, Grote, Richting, Re- 
verse 

Printmode. Met mode bedoelen we de 
grafische mode. Als u het handboek 
van uw printer er even bij pakt, zult u 
zien dat er verschillende modi zijn. 
Van deze modi worden er vier door 
ons gebruikt, namelijk 0 t/m 3. Met 
deze modi kunt u dus bepalen of u uw 
printer-lint langer dan vandaag wilt ge¬ 
bruiken, want met het groot en dubbel 
afprinten zal uw lint echter snel ach¬ 
teruit gaan. Maar goed we zullen ze 
hieronder even kort bespreken. 

MODE 0: standaard density - 480 
dpl/60 dpi. Met deze mode kunt u twee 
verschillende manieren uitprinten. De 
mode is standaard groot en kan rever- 
se en normaal uitgeprint worden. Wij 
moeten u er even op wijzen dat met 
het groot afprinten een reële afdruk 
van het scherm verkregen kan wor¬ 
den. Dit betekend dat een cirkel op het 
scherm een cirkel op het papier wordt, 
met andere worden What you see is 
what you get... en dat kunnen we niet 
van iedere screendumper zeggen. 

MODE 1: doublé density - 960 dpl/120 
dpi. In deze mode kunt u op maar liefst 
zes verschillende manieren printen. In 
de breedte van het papier kunt u nor¬ 
maal en reverse printen, dat zijn er 
dan al twee. In de lengte van het pa¬ 
pier kunt u breed normaal of reverse, 
smal normaal of reverse printen. Bij 
elkaar opgeteld dus zes! 

MODE 2: doublé speed, doublé densi¬ 
ty - 960 dpl/120 dpi. Met deze mode 
kunt u een grafische-scherm op twee 
verschillende manieren uitprinten. In 
de breedte; ‘normaal of reverse’ En in 
de lengte van het papier: ‘smal nor¬ 
maal of reverse’. Deze vier zijn ook bij 
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2480 LOOP_3 LDA #$00 ;laad de accu met 0 

2490 TAX ;zet x-register ook op 0 

2500 STA $9F ;en de ORA waarde op 0 

2510 LDA #128 ;Laad accu met de waarde 128 

2520 STA$9E ;en zet ORA waarde op adres $9E 

2530 NEXT COPY LDA $FA ;laad accu met AND waarde (128) 

2540 AND TABEL1 ,X ;AND byte uit tabel met 128 

2550 BEQ BIT NULL ;is het bit 0 dan spring 

2560 LDA$9E ;laad accu met ORA waarde (128) 

2570 ORA$9F ;ORA waarde van adres $9F met 128 

2580 STA $9F ;en plaats weer op adres $9F 

2590 BIT NULL LSR $9E ;ORA waarde naar 64, 32,16, 8, 4, 2,1 

2600 INX ;volgende byte 

2610 CPX #8 ;al 8 bytes bewerkt? 

2620 BNE NEXT COPY ;zo niet dan volgende bewerken 

2630 LDA $9F ;accu laden met af te printen byte 

2640 EOR REVERSE ;eventueel reverse 

2650 JSR CHROUT ;byte naar printer sturen 

2660 LSR $FA ; 

2670 DEY ; 

2680 BPL LOOP_3 ; 

2690 BACK INC $B2 ;kolom teller ophogen 

2700 INC $B0 ;lo-byte scherm teller ophogen 

2710 BNE LO_COUNT ;hi-byte laten staan 

2720 INC $B1 ;hi-byte scherm ophogen 

2730 LO_COUNT LDA $B2 ;accu laden met kolom teller 

2740 CMP #80 ;einde regel? 

2750 BEQ RETURN ;zo ja, dan volgende regel 

2760 JMP NEXT KOLOM ;volgende kolom printen 


2770 RETURN 
2780 ; 

2790 PRT MODE2 


RTS 


;volgende regel printen 


2800 
2810 
2820 
2830 
2840 
2850 
2860 
2880 ; 

2890 PRT_0 
2900 
2910 
2920 ; 

2930 PRT0_ 
2940 
2950 
2960 
2970 ; 

2980 PRT_1 
2990 


LDA PRTMODE ;ophalen printmode 


3000 
3010 
3020 
3030 ; 

3040 PRT_2 
3050 
3060 
3070 ; 

3080 PRT_3 
3090 
3100 
3110 
3120 
3130 ; 

3140 PRT3_MAAT1 LDA#1 
3150 LDX#146 

3160 LDY#2 

3170 JMPFIX PRT INIT 

3180 ; 

3190 PRT3_MAAT2 LDA #3 
3200 LDX #34 

3210 LDY#4 

3220 JMPFIX PRT INIT 


;aanpassen installatie tabel 
;waarden voor installatie tabel inladen 


;geen maat ingevoerd dan device sluiten 


BEQ PRT_0 ;printmode 0 dan maat controleren 

CMP #1 ;printmode 1 

BEQ PRT_1 ;dan maat controleren 

CMP #2 iprintmode 2 

BEQ PRT_2 ;dan maat controleren 

CMP #3 iprintmode 3 

BEQ PRT_3 ;dan maat controleren 

LDA MAAT ;de maat inladen 
BEQ PRT3_MAAT1 ;maat 0 dan naar installatie tabel 
JMP CLOSE_DEVICE ;geen maat ingevoerd dan device sluiten 

MAAT1 LDA #0 ;waarden voor installatie tabel 
LDX #202 ;inladen 
LDY#1 

JMP FIX PRT INIT ;aanpassen installatie tabel 

LDA MAAT ;de maat inladen 
BEQ PRT3_MAAT1 ;maat 0 dan naar installatie tabel 
CMP #1 ;maat 1 

BEQ PRT3_MAAT2 ;dan naar installatie tabel 

JMP CLOSE DEVICE ;geen maat ingevoerd dan device sluiten 


LDA MAAT ;de maat inladen 

BEQ PRT3_MAAT1 ;maat 0 dan naar installatie tabel 
JMP CLOSE DEVICE ;geen maat ingevoerd dan device sluiten 

LDA MAAT ;de maat inladen 

BEQ PRT3_MAAT1 ;maat 0 dan naar installatie tabel 
CMP #1 ;maat 1 

BEQ PRT3 MAAT2 ;dan naar dan naar installatie tabel 
JMP CLOSE DEVICE ;geen maat ingevoerd dan device sluiten 

;waarden voor installatie tabel inladen 


printer mode 1 aanwezig, maar met dit 
verschil dat in die mode de afdruk lich¬ 
ter is omdat er dan maar n keer over 
een line wordt geprint. Hierdoor slijt 
uw lint ook minder en is mode 1 ook 
een stuk sneller. 

MODE 3: quadruple density - 1920 
dpl/240 dpi. Met deze mode kunt u 
een grafische-scherm op vier verschil¬ 
lende manieren uitprinten. In de 
breedte:‘smal normaal of reverse’. In 
de lengte van het papier kunt u ‘ultra 
smal, normaal of reverse’ uitprinten. 

DPL en DPI? 

In onze tekst ziet u verschillende ke¬ 
ren de kreten DPI en DPL. Wat Is dit 
nu precies? DPI staat voor: ‘Dots Per 
LIne’ op z’n oerhollands gewoon: 
‘Punten Per Regel’. DPI staat voor: 
‘Dots Per Inch’ oftewel ‘Punten Per 
Inch'. Een Inch is 254 millimeter, 2.54 
centimeter. Deze gegevens vertellen 
u dus alles over de resolutie bij het af¬ 
printen van een scherm. Resolutie 
kunt u het best vergelijken met oplos¬ 
sing. Wat kan en moet ik daar nu weer 
mee? Laten we even een ding duide¬ 
lijk maken. Die gegevens heeft u no¬ 
dig om te kunnen uitrekenen hoe 
groot uw afdruk wordt op papier. Ver¬ 
der moet u weten welke resolutie u wilt 
gebruiken bij het printen van een 
scherm. Normaal is het 80 cis 640 * 
200 pixels. Weet u het nog pixels staat 
voor punten. Nee geen gewone punt, 
het normale karakter, want die be¬ 
staan hl vaak uit vier pixels. Kijk maar 
eens heel goed naar een printout. 
Wanneer we nu met MODE 3: een 
grafisch-scherm willen gaan afprinten, 
kunnen we dus berekenen hoe groot 
de afdruk wordt. Namelijk: 1920 pun¬ 
ten per regel. 1920/254 Is het aantal 
Inches van de afdruk. (7.5591 Is de 
uitkomst) U kunt zich afvragen hoe¬ 
veel punten dat dan per centimeter is! 
Heel simpel, gewoon 240 delen door 
2.54. (94.4882 is de uitkomst) Nu 
heeft u de resolutie per centimeter uit¬ 
gerekend. Afgerond is het dus 95 
pixels, of punten, per centimeter. Door 
1920/94.4882 krijgt u het aantal pun¬ 
ten per regel. (20.3200 is de uitkomst) 
20 centimeter zou de afdruk van uw 
grafische-scherm dus kunnen zijn. 
Maar dat had u gedacht, dat gaat mooi 
niet door! Wij hebben immers maar 
640 pixels om naar de printer te stu¬ 
ren! U weet wel de schermresolutie 
van 640 * 2001! En 640/94.4882 is nog 
altijd 6.7733. Uw afdruk wordt dus 
maar een kleine 7 centimeter groot. 
Vergeet dit dus nooit!! Het aantal 
pixels wat u naar de printer stuurt 
maakt dus de dienst uit. Maar hoe krij¬ 
gen wij dan een grotere afdruk? Ge- 


Commodore Info 2189 


57 




3230 ; 

3240 PRINTEN LDX #0 ;kolom teller 
3250 STX $B0 ;op nul zetten 

3260 NEXT_KOLOM2 LDA #0 ;lijn teller 

3270 STA $B1 ;op nul zetten 

3280 LDX #4 ;prlnter Installatie tabel naar 

3290 LOOP13 LDA PRTJNIT2,X ;prlnter sturen 


3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 NEXT 
3440 


JSR CHROUT 
DEX 

BPLLOOP13 
LDA #13 
JSR CHROUT 
LDA #10 
JSR CHROUT 
LDA #62 


ireturn naar printer sturen 
;llnefeet naar printer sturen 


3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 ; 

3740 FIX 

3750 

3760 

3770 


_PRT_INIT STA PRT_INIT2 ;waarde accu wegzetten 
STX PRT_INIT2+1 ;waarde x-register wegzetten 
STY AANTAL PRT ;waarde y-register wegzetten 
JMP PRINTEN ;en het printen starten 


3780 ; 

3790 WRITE VDC STX VDCADR ;x-reglster In adres register VDC 

3800 CHECK BIT VDCADR ;test waarde 

3810 BPL CHECK ;waarde overgedragen, dan OK 

3820 STA VDCDAT ;accu wegschrijven In data register 

3830 RTS ;en terug 

3840 ; 

3850 READ VDC STX VDCADR ;x-register In adres register VDC 

3860 CHECK2 BIT VDCADR ;test waarde 

3870 BPL CHECK2 ;waarde overgedragen, dan OK 

3880 LDA VDCDAT ;data register naar accu 

3890 RTS ;en terug 

3900 ; 

DAT $18331B046C1B401B 
DAT $0280012A1B 
DAT $0D401 B 


3910 PRTJNIT1 
3920 PRT_INIT2 
3930 PRT_INIT3 
3940 ; 

3950 TABEL1 


DAT $0000000000000000 


;hi-byte adres links onder in scherm 
STA Hl BYTE COUNT ;en wegschrijven 
LDA $B0 ;kolom teller ophalen 
CLC ;carry schoon 

ADC #48 ;lo-byte optellen voor juiste adres 
STA LO_BYTE COUNT ;en wegschrijven 
BYTE2 LDX #18 ;update register VDC chip 
LDA HI_BYTE_COUNT ;hi-byte ophalen 
3450 JSR WRITE_VDC ;en opslaan 

3460 INX ;x verhogen voor lo-byte update register 

3470 LDA LO_BYTE_COUNT ;lo-byte VDC ram op halen 

3480 JSR WRITE VDC ;en wegschrijven 

3490 LDX #31 ;byte uit VDC RAM halen 

3500 JSR READ_VDC 

3510 EOR REVERSE ;reverse maken of niet (zie reverse flag) 

3520 LDY AANTAL PRT ;y-register met aantal keren printen laden 

3530 PRT COUNT JSR CHROUT ;VDC-byte, naar printer sturen 
3540 DEY ;y-register aflagen 

3550 BNE PRT COUNT ;alle bytes verstuurd, zo niet volgende 

3560 LDA LO_BYTE_COUNT ;lo_byte teller ophalen 

3570 SEC ;carry zetten voor aflagen 

3580 SBC #80 ;aflagen met 80 

3590 STA LO_BYTE_COUNT ;en weer wegschrijven 

3600 BCS CARRYSET ; 

3610 DEC HI_BYTE_COUNT ;nee, dan hi-byte aflagen 

3620 CARRYSET INC $B1 ;line counter ophogen 
3630 LDX $B1 ;in x-register laden 

CPX #200 ;en controleren op 200 lijnen 
BNE NEXT_BYTE2 ;nog niet bereikt dan volgende line 
LDA #10 ;eerste kolom verticaal afgeprint, een 
JSR CHROUT jlinefeed versturen 
INC $B0 ;kolom teller ophogen 
LDX $B0 ;x-register laden met kolom teller 
CPX #80 {controleren op 80 kolommen 
BNE NEXT_KOLOM2 ;geen kolom 80, dan volgende kolom 
JMP CLOSE DEVICE {printer kanaal sluiten 


woon een aantal keren dezelfde code 
naar de printer sturen! En klaar is 
kees. Het is overigens met de scherm- 
dumper mogelijk een afdruk van maxi¬ 
maal 17 bij 23 centimeter te maken. 

Vanuit machinetaal 

Om vanuit machinetaal de routine op 
te starten dient u de ‘accu’ te laden 
met het nummer van de desbetreffen¬ 
de printmode, 0 t/m 3. In het ‘x-regis¬ 
ter’ laad u de afdruk afmeting, dit kan 
een ‘0’ of een ‘1 ’ zijn. Met het y-regis¬ 
ter bepaald u of de screendump hori¬ 
zontaal of verticaal geprint moet wor¬ 
den. En last but not least... de carry. 
De ‘carry’ is het vierde cijfertje dat bij 
een SYS opdracht ingegeven kan 
worden. Wanneer de carry op 1 gezet 
wordt, print u het grafische scherm re¬ 
verse af, dit reverse printen van het 
scherm is te vergelijken met de ESC- 
R en ESC-N opdracht van de scherm- 
editor. Als de carry op 0 gezet wordt, 
zal het scherm normaal worden afge¬ 
drukt. 


Opmerking 

Soms staat er een ’x’ in de SYS op¬ 
dracht, dit betekend dat het niet uit¬ 
maakt wat u er neer zet, als het maar 
kleiner dan 256 is, want de print mode 
blijft toch gelijk. Als u op de plaats van 
de printer mode een waarde neer zet 
die hoger is dan drie zal de routine 
niets doen. Dit is gedaan omdat die 
modi nog niet door onze schermdum- 
per kunnen worden geactiveerd. 

Het plaatje 

Om een screendump te maken zul je 
toch een plaatje nodig hebben en 
daarom hebben wij een plaatje van 
GEOS-128 geleend. Natuurlijk is het 
overbodig om het hele plaatje over te 
tikken. Je houdt er hoogstens tik- 
kramp aan over. Daarom hebben we 
de achtergrond met een machinetaal 
routine al reeds inelkaar gezet. Het 
enigste wat er nu nog hoeft te gebeu¬ 
ren is het intikken van dat gene wat in 
het midden staat en natuurlijk het ba- 
sic programma. Als u het basic pro¬ 
gramma opgestart heeft zal deze zich 
net zoals de screendumper zelf op 
schijf wegschrijven. Daarna de com¬ 
puter uitzetten, de screendumper met 
BLOAD inladen, want de machinetaal 
staat immers op $0b00. En als laatste 
de machinetaal routine voor het demo 
plaatje inladen. De volgende stap is 
het kiezen van de verschillende mo¬ 
gelijkheden die hier boven zijn be¬ 
sproken. Deze kunnen in de tweede 
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SYS opdracht van de basic worden 
geplaatst. Het enige wat u nu nog te 
doen staat is het commando ‘RUN’ in 
te tikken, en u krijgt een prima screen- 
dump zoals u die niet vaker van een 
C128 gezien heeft. 


Schermdump (ca. 4xverkleind). 


Problemen 

Het scherm word niet grafische en u 
ziet niets anders dan rotzooi op uw 
scherm. Dit probleem kan ontstaan 
doordat u geprobeerd heeft alleen het 
plaatje op te starten. In de screen- 
dumper wordt namelijk het scherm in 
de grafische mode gezet. Het volgen¬ 
de probleem kan zijn dat u de screen- 
dumper keurig op $0b00 heeft gezet 
en het plaatje staat ook op de goede 
plaats In het geheugen. Maar wat krij¬ 
gen we nou, de printer heeft geen zin 
om een screendump op het papier te 
zetten. Dit probleem kan voorkomen 
als u de printer niet aan heeft gezet. 
Ook kan het device van uw printer niet 
op 4 staan. Kijk vooral of alles goed 
staat en dat alles goed is ingeladen, 
want een fout is zo gemaakt. 

Tot slot 

Tot slot willen we u mededelen dat dit 
natuurlijk niet het einde is van de 
screendumper. Wat niet direct inhoudt 
dat wij weer alles gaan zitten doen, 
mooi niet dus. Wij kunnen daarbij al¬ 
tijd hulp van lezers gebruiken. HELP 
ons in vredesnaam aan tools en ande¬ 
re handige dingen. Vanaf dit jaar zal 
M.G.C.C proberen ook de INFO lezer 
bij te staan. Om dit te kunnen volhou¬ 
den zoeken wij nog een paar perso¬ 
nen die ons met raad en daad willen 
bijstaan. 

JOHAN & JOHAN 


Voor reacties; 

I Redactie Commodore Info 
t.a.v Johan & Johan 
Postbus 43048 
1009 ZA Amsterdam 
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Amigo 


Van 16 tot en met 18 Januari waren de conferentiezalen van het luxueuze Interconti- 
nental Hotel te Frankfort het domein van een grote schare Amiga ontwikkelaars en an¬ 
dere belangstellenden. 

Amigo Ontwikkeloors 

De 2e europese Amiga ontwikkelaars conferentie 

M eer dan vier jaar na de conferentie in Eastbourne, Verenigd Koninkrijk, 
had Commodore het eindelijk weer nodig gevonden om met de Europe¬ 
se ontwikkelaars in directe dialoog te treden. 


Een vluchtige blik in de loodzware 
map met informatie die de lezingen 
van de diverse Amiga mensen moest 
ondersteunen was voldoende om de 
teneur van de conferentie aan te ge¬ 
ven: bijna al het materiaal was al be¬ 
kend van de Developers Conference 
eerder dit jaar in de Verenigde Staten. 
Primeurs konden dus niet verwacht 
worden, wel een betere toelichting op 
het grote aantal nieuwe randappara¬ 
tuur en andere hardware-uitbreidin- 
gen, en een interactieve discussie 
over de toekomst van de Amiga Kick¬ 
start en Workbench software, onder 
de noemer ‘Beyond 1.4’. 

Naast algemene lezingen die voor ie¬ 
dereen waren bestemd waren er 
steeds drie aparte lezingen over spe¬ 
cifieke onderwerpen tegelijkertijd, zo¬ 
dat ieder zelf zijn programma moest 
samenstellen. 

Marketing 

De lezingen over marketing issues 
waren vooral bestemd voor bedrijven 
die nauwelijks ervaring met de markt 
hadden, gezien het eenvoudige ka¬ 
rakter. Behandeld werd o.a. hoe pro¬ 
gramma’s te verkopen in Australië en 
Canada, locale aanpassingen en ele¬ 
mentaire public relations. 

De profilering van de Amiga (met 
name de 2000) in verticale markten, 
met name de professionele video 
branche, is één van de aktiepunten 
van Commodore. Met applicaties als 
‘Desktop Video’ wil Commodore ook 
in de horizontale markt door gaan bre¬ 
ken. 

Eén van de beste kansen op grote 
omzetten biedt echter een zeer verti¬ 
cale toepassing: de upgrade van de 
Amiga 2000 naar een professioneel 
werkstation, met een hoge resolutie 
beeldscherm, een 8 Megabyte geheu¬ 
genkaart, een 68020/68881 en optio¬ 


neel 68551 coprocessor board. Hier¬ 
mee gaat Commodore de concurren¬ 
tie aan met Sun, Apollo, en de high- 
end 80386 werkstations. 

Eén van de opvallende zaken was dat 
het aantal ontwikkelaars voor de hori¬ 
zontale markt (de software produkten 
die het publiek in de normale handel 
kan verkrijgen) op de vingers van een 
hand te tellen was. De meeste bedrij¬ 
ven ontwikkelen pakketten op klant¬ 
specificatie of voor een zeer beperkte 
groep van professionele klanten in de¬ 
zelfde branche, met name de video 
bedrijven. 

Aangezien er momenteel wereldwijd 
niet meer dan zo’n 600.000 Amiga’s 
zijn verkocht, is het de vraag of het 
nog wel mogelijk zal zijn dat grote soft¬ 
warehuizen die nu voor de PC wer¬ 
ken, Amiga versies of zelfs speciale 
Amiga applicaties willen gaan maken. 
Een lastig probleem, aangezien Com¬ 
modore de Amiga, en vooral de Ami¬ 


ga 500, toch juist voor de publieks- 
markt aantrekkelijk wil maken. 
Commodore verwacht in elk geval dat 
de verkopen zullen blijven groeien, en 
dit jaar al het miljoen zal worden ge¬ 
passeerd. 

De versnippering van de europese 
markt komt duidelijk naar voren bij 
Commodore zelf, dat in Europa per 
land is georganiseerd. Commodore 
heeft toegezegd aan een betere sa¬ 
menwerking van de landelijke organi¬ 
saties te werken, wat betere kansen 
moet bieden voorde europese ontwik¬ 
kelaars die toch al geplaagd worden 
door de noodzaak voor elk land in een 
andere taal en met andere program- 
ma-eisen te moeten werken. Tenslot¬ 
te moet ook voor de software-ontwik- 
kelaars 1992 een magisch jaar wor¬ 
den! 

Met de aankondiging dat Commodore 
vanaf nu elk half jaar een ontwikke- 
laars-conferentie gaat houden, om en 
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om in de VS en in Europa, wordt in ie¬ 
der geval duidelijk dat de software¬ 
ontwikkeling door derden erg belang¬ 
rijk is. Ook het al in 1984 toegezegde 
Europese bulletin board voor ontwik¬ 
kelaars schijnt nu eindelijk te worden 
gerealiseerd. 

Software 

Ondanks dat de meeste onderwerpen 
al bekend waren van de VS conferen¬ 
tie, waren de software workshops nut¬ 
tig. Hier bestond de mogelijkheid een 
direct antwoord van de Amiga soft¬ 
ware ontwikkelaars zelf te krijgen op 
ingewikkelde vragen, en zelfs om 
nieuwe ideëen aan te dragen voor de 
toekomstige Kickstart ROM en Work- 
bench software. Erg aardig was het 
kennis te nemen van de informele ma¬ 
nier waarop de mensen binnen Com¬ 
modore met elkaar werken. Er heerst 
een goede sfeer van samenwerking 
en enthousiasme, die de toekomstige 
software ontwikkeling zeker onder¬ 
steunt. Iemand als Jim Mackraz, ver¬ 
antwoordelijk voor Intuition, Work- 
bench en de blitter besturing, kreeg 
door zijn aardige manier van presen¬ 
teren heel wat fans in de zaal. 

In de VS is directe communicatie met 
hem, of met mensen als Andy Pinkel 
(algemeen software manager) of Ca- 
rolyn Scheppner (Commodore techni- 
cal software support) veel directer mo¬ 
gelijk, door het uitgebreide electronic 
mail netwerk. Hier moet nog veel werk 
voor worden verricht in Europa! 

Hardware 

Voor de vele Europese bedrijven die 
randapparatuur en kaarten ontwikke¬ 
len waren de hardware lezingen be¬ 
langrijk. De technische details van de 
verschillende systemen werden uit¬ 
eengezet door Commodore hardware 
ontwikkelaars, die meestal zelf kaar¬ 
ten voor de 500 of 2000 hadden ont¬ 
wikkeld. Dit laatste vormt wel een pro¬ 
bleem voor de Europese hardware le¬ 
veranciers: De grote verscheidenheid 
aan randapparatuur en kaarten die 
Commodore nu zelf gaat leveren ver¬ 
kleint de markt voor de zogenaamde 
third-party apparatuur. Commodore 
gaat zelfs experimentele systemen 
als een transputerkaart leveren. 

Tijdens de ‘Show-Off’, een demon¬ 
stratie sessie waar third party develo- 
pers hun produkten konden laten zien, 
viel juist het grote aantal van deze pro¬ 
dukten op. Vooral in de bondsrepu¬ 
bliek worden veel van dit soort pro¬ 
dukten ontwikkeld. Een beschrijving 
van de produkten van Commodore | 
volgt onderaan dit artikel. ! 



A590- 20 MB 
harddisk met de 
mogelijkheid om 2 
MB 

geheugenuitbreiding 
toe te voegen. 


Met name op het gebied van nieuwe 
processorkaarten valt er nog veel te 
verwachten. Zo verzorgde Motorola 
een lezing over de opvolgers van de 
68020, de 68030 en 68040, de floa- 
ting point en MMU units, maar ook 
over de 88000 RISC processor chip- 
set. Als kaarten met dit soort proces- 
soren verschijnen, kan de Amiga echt 
uitgroeien tot een werkstation voor po¬ 
wer users. Hetzelfde geldt voor de IN- 
MOS transputer, waarvoor Commo¬ 
dore een ontwikkelset gaat leveren, 
met het Helios operating system, ont¬ 
wikkeld door niemand minder dan Tim 
King van Metacomco, die ook verant¬ 
woordelijk was voor AmigaDOS. 
Maar, zo wordt verzekerd, Tim King 
kan nu in ‘C’ programmeren (Amiga¬ 
DOS is in het verouderde BCPL ge¬ 
schreven). 

Amix: Amiga Unix 

Op de tweede conferentiedag kon er 
zowaar kennis gemaakt worden met 
een inderhaast nog opgetrommeld 
echt werkend apparaat waar Amiga 
Unix op draaide. En jawel, het werkt, 
het is een complete Unix, maar het 
heet Amix. 

Een paar kanttekeningen; 

• De A2000 moet voor Amix be¬ 
hoorlijk worden uitgebreid: een 
68020 coprocessor board met 4 
megabyte geheugen, een 80 MB 
harddisk, en een 150 MB tape- 
streamer. Dit laatste is noodzake¬ 
lijk aangezien Amix op tape wordt 
aangeleverd. 

• Er wordt de laatste AT&T Unix ge¬ 
bruikt; dit is een zeer officiële 
Unix, echter momenteel wordt 
hard gewerkt aan het samenvoe¬ 
gen van Unix met BSD en de an¬ 
dere varianten. Hier zullen we op 
moeten wachten voor de echte 
Unix standaard. 


Het door Commodore gebruikte 
window systeem heeft als voor¬ 
deel dat het zeer snel is, aange¬ 
zien het direct op de speciale Ami¬ 
ga hardware werkt. Een nadeel 
heeft het echter ook: het is een to¬ 
taal nieuw window systeem, dat 
niet compatibel is met welk wind¬ 
ow systeem dan ook, zelfs niet 
met het gewone Amiga window- 
systeem. Dit is jammer, aangezien 
er naast de window-systemen als 
SunView, neWS, XWindows, spe¬ 
ciaal geschikt voor Unix, nu weer 
een nieuwe ‘standaard’ is ge¬ 
creëerd, die de verwarring alleen 
nog maar weer groter maakt. 

Met de nieuwe intelligente com- 
municatiekaart met 8 seriële poor¬ 
ten is het echt multi-user te ge¬ 
bruiken. 

Amix is geen AmigaDOS, en het 
gebruik van Kickstart routines van¬ 
uit Amix is dan ook niet mogelijk 
(zoals wel kan met Mac routines 
bij A/UX op de Macintosh). 

De samenwerking met AmigaDOS 
is beperkt tot het feit dat beide 
operating systems op dezelfde 
harddisk kunnen samenleven, zo¬ 
dat met reboot van het ene naar 
het andere kan worden overge¬ 
schakeld. 

Verder is toegezegd dat zal wor¬ 
den voorzien in drivers voor zowel 
AmigaDOS als Amix om de we¬ 
derzijdse files te kunnen inlezen 
en wegschrijven (Amix krijgt toe¬ 
gang tot AmigaDOS files, en vice 
versa) 

Een totaal systeem zal niet echt 
goedkoop zijn (gezien de benodig¬ 
de hardware), echter voor een 
Unix werkstation is het geheel be¬ 
slist voordelig. 

- Een duidelijk pluspunt is de aan¬ 
wezigheid van de tapestreamer; 
deze draagt wel bij aan de hard¬ 
ware kosten, echter de aanwezig- 
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heid van een goede backup voor¬ 
ziening maakt het systeem veel 
betrouwbaarder. Harddisk crashes 
gebeuren immers meestal als men 
de disk juist is beginnen te ver¬ 
trouwen, en geen backups maakt 
omdat dit 100 schijven en veel tijd 
kost. Een tape backup-unit is veel 
beter te gebruiken, en biedt hoge 
betrouwbaarheid. 

A590 Harddisk 

Deze in Amiga 500 stijl ontworpen ex¬ 
tern gevoede uitbreidings-eenheid 
maakt van de 500 een zeer bruikbaar 
serieus computer systeem. De 20 me¬ 
gabyte disk Is autobootend als de 
Kickstart 1.3 rom wordt gebruikt. Ex¬ 
tern kunnen nog meer harddisks wor¬ 
den toegevoegd. Op het board is 
plaats voor 2 megabyte Fast RAM. 

A2024 

De A2024 Is een hoge resolutie mo¬ 
nochrome monitor (maximaal 1008 * 
1024). Deze monitor wordt onder¬ 
steund door een Kickstart modificatie 
in RAM, zodat 1MB minimaal nodig is. 
Deze software wordt echter geïnte¬ 
greerd in de nieuwe Kickstart 1.4 
ROM. 

A2300 Genlock 

Eindelijk is de Genlock er In de euro- 
pese PAL standaard. Deze Is alleen 
geschikt voor Amiga 2000 machines 
met een ‘B2000’ moederbord. 

A2350 Professional Video 
Adaptor 

Deze bestaat uit twee kaarten, een in 
het video slot van de 2000 (de 
‘B2000’) en een digitising board in een 
normale slot. Deze kaart werkt met 
een digitale signaal processor, die sa¬ 
men met de meegeleverde software 
een professionele video computer van 
de Amiga maakt. De belangrijkste mo¬ 
gelijkheden zijn ‘real-time frame freez- 
ing’ die directe digitalisering naar vi¬ 
deo geheugen mogelijk maakt, beeld- 
mixing, en algemene beeldbewerking 
en verbetering. 

• A2620 68020 kaart, met 68881 
floating point coprocessor, 14Mhz 
klok, 2 of 4 Megabyte 32 bits ge¬ 
heugen, en optioneel een 68551 
memory management chip 
(MMU), voor de ondersteuning 
van Unix. 

De snelheidswinst bij gebruik van 


deze kaart kan oplopen tot 400%, 
de gemiddelde winst in executie 
snelheid voor niet aan video ge¬ 
bonden programma’s zal zeker 
meer dan tweemaal zijn. 

MMU 

De Memory Management Unit zal in 
de nieuwe Kickstart versies ook voor 
een beperkte bescherming van Ami- 
gaDOS tasks zorgen, zodat de machi¬ 
ne met zo’n chip wat meer crash-be- 
stendig vyordt. De ‘Guru-Meditation’ 
zal over-tgens dan al vervangen zijn 
door een wat vriendelijker foutbehan- 
delingssysteem. 

A2090A 

Harddisk controller, aangepast voor 
het booten van de harddisk. Een aar¬ 
dige bijkomstigheid bij dit produkt Is 
dat met een halfsize insteekkaart 
A2090B ook met de oude versie 
(A2090) autoboot mogelijk wordt, ech¬ 
ter alleen met Kickstart 1.3. Commo¬ 
dore is echter van plan de nieuwe 
kickstart bij de autobootable harddisk 
controllers mee te leveren. 

A2058 

Geheugen kaart, 2 Megabyte stan¬ 
daard, uitbreidbaar op het board tot 8 
Megabyte. Ideaal voor ontwikkelom¬ 
gevingen en natuurlijk voor lange vi- 
deo-animatie toepassingen en minu¬ 
ten durende geluids-samples. 

A228Ó 

PC-AT compatible bridgeboard. Hier¬ 
op hebben we erg lang moeten wach¬ 
ten, maar het resultaat is er naar: de 8 
Mhz AT biedt eindelijk weer een alter¬ 
natief voor de gewone PC, terwijl de 
software voor de Interface met de 
Amiga duidelijk is verbeterd: zo kan 
de Amiga mouse nu ook worden ge¬ 
bruikt aan PC-zijde, evenals de hard¬ 
ware klok. 

A2232 Multiple Serial Port 
Card 

Deze Intelligente uitbreidingskaart 
heeft een interne 6502 processor die 
7 RS232 poorten met 19200 baud kan 
bedienen. Deze kaart is met name be¬ 
doeld voor multiuser Unix gebruik, 
maar wordt ook ondersteund door 
AmigaDOS, zodat bijvoorbeeld een 
modem, een midi interface en een 
seriële printer tegelijkertijd kunnen 
worden aangesloten. 


Commentaar van 
een ontwikkelaar 

Indien Commodore op korte termijn 
tot een betere samenwerking tus¬ 
sen de europese landen kan ko¬ 
men, wordt het voor Radarsoft, dat 
al jaren met succes horizontale 
software op de markt brengt. Inte¬ 
ressant zijn lijn van gebruikers 
vriendelijke software ook naar de 
Amiga te porteren en verder te ont¬ 
wikkelen. 

Tot nu toe gebruiken wij de Amiga 
met name als werkstation, waarop 
wij met ons eigen Mocassin ontwik- 
kelingssysteem momenteel vooral 
PC applicaties ontwikkelen. Wij zijn 
er echter van overtuigd dat de Ami¬ 
ga een fantastische machine is, en 
we blijven de ontwikkelingen dan 
ook op de voet volgen. 

Enhanced Chip Set 

De Amiga 500 en de Amiga 2000 (met 
‘B2000’ board) kunnen met deze chip- 
set worden omgebouwd naar de 
nieuw norm. 

Het belangrijkste voordeel van deze 
nieuwe chips is dat nu een vol mega¬ 
byte chip-geheugen addresseerbaar 
Is. In dit geheugen kunnen videobeel¬ 
den en geluldssamples staan. De 
oorspronkelijke 512 KB grens was 
voor een aantal toepassingen te wei¬ 
nig. Met name animatie systemen 
kunnen nu langere ‘films’ produceren. 
Met een multlsync monitor (of een bl- 
sync monitor die Commodore gaat le¬ 
veren) is met deze chips, en de Kick¬ 
start 1.4 software, een nieuwe video 
mode mogelijk: 640 512, niet flikke¬ 
rend, in 4 kleuren uit een palet van 64. 
PAL en NTSC zijn omschakelbaar in 
de chip. 

Lex Boeré, Radarsoft System Devel- 
opment. 
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Hoe is het met uw inspiratie gesteld? Zit u futloos en met doffe ogen naar uw fullcolor, 
interlace-flikkervrije MultiSync te staren? Dan is hier het medicijn. Het is niet versla¬ 
vend (hoewel..), je wordt er absoluut niet dronken van en morgen geen last van een 
kater. Ladies en Gentelmen (typfoutje) may we proudly present, in de succesreeks hoe 
krijgen we zoveel tekst opgestuurd, hier is ie weer, de TIPS & TRUCS hoekll..Yeahl! 


WENKEN EN ADVIEZEN 


O ok deze keer zijn we er weer in geslaagd een propvolle aflevering van 
tips & trucs bij elkaar te vegen. Toch geldt onze oproep van de vorige 
keer nog steeds want wat is nou leuker dan een hoek, voor en door de le¬ 
zers.. Dus zullen we het nog maar een keer van de daken schreeuwen. 


üsting Include 

#include "intuition/intuition.h" 

struct Screen ‘ActScreen; 
struct Window ‘ActWindow; 
struct IntuitionBase *lntujtionBase; 

main() 

{ 

ActScreen=lntu ition Base->ActiveScreen; 
ActWindow=lntuitionBase->ActiveWindow; 

vervolg van het programma 


TIPS EN TRUCS WANTEDÜÜ 
Stuur ze op naar Commodore Info, 
Postbus 43048,1009 ZA, Amsterdam 
en vermeldt er bij ‘Amiga Tips & 
Trucs’. 

‘FONT’ mania in de revisie 

Goed, we geven toe sommige men¬ 
sen leren het nooit, ook de vorige keer 
zat weer boordevol informatie en fou¬ 
ten. De ergste was eigenlijk wel die in 
het voorbeeld bij FONT’mania. Daar¬ 
om drukken we deze nog maar een 
keer af. Voor al de mensen die de af¬ 
gelopen, pak ’m beet, 1 1/2 maand 
vergeefs hebben geprobeerd het 
voorbeeld werkende te krijgen en ie¬ 
dere keer een scherm, ook boordevol, 
foutmeldingen kregen, onze nederige 
excuses. Het zal (hopelijk) niet meer 
voorkomen. 

Zoekplaatje 

Hoe vaak is het u niet overkomen dat 
u iets in het actuele scherm of in het 
actuele window wilde veranderen 
maar dit werd u onmogelijk gemaakt 
doordat u dit window niet kon vinden. 
Te vaak dus. Hier is de oplossing. In 
de include-file ‘intuition/intuition.h’ is 
de structure IntuitionBase terug te vin¬ 
den. Binnen deze structure is een 
pointer naar het actuele scherm en 


naar het actuele window te vin¬ 
den. De pointer naar deze twee 
zou dan bijvoorbeeld als volgt 
opgeslagen kunnen worden. 


Deze pointer kunt u vervolgens 
weer op dezelfde wijze gebrui¬ 
ken als dat u deed met de poin¬ 
ter die u terug kreeg na de 
OpenScreenO of OpenWind- 
ow() functie. 

Interceptor 

Ha, IK..ga vandaag weer eens even 
lekker vliegen. Pomdepom.. h’m de 
thrust naar 90%, brakes in, thrust 
maar naar 100%, afterburners aan, 
brakes los en daar gaan we weer een 
keer. Nou, dit keer zal ik die klerelan- 
ding toch eens een keer goed maken. 
Zooo, nette bocht voor het schip. 
Snelheid 250 knopen, hoogte 500 
voet, langzaam dalen. Oh, oh... dit 
gaat toch nog niet snel genoeg, even 
sneller dalen. Jaaaa, jaaaa, kom op, 
waarom werkt dat toestel nou niet 

echt mee?? CRRRAAASSH.ee- 

eeuuh, ik geloof dat er weer een mis¬ 
sie mislukt is. Zo, wordt uw vliegple- 
zier met Interceptor op een dergelijke 
wijze verknalt? Blijf er dan even bij 
want we hebben de oplossing. Boven¬ 
staande scene is zo’n beetje een stan¬ 
daard scene die de meeste, wel 
TOPGUN bewuste, niet geheel 
JOYSTICK vaste, beginnende In- 
terceptor-fanaten moeten door¬ 
staan. Wat nu te doen bij de ‘quali- 
fication’. Simpel, eerst opstijgen. 
Dit is het makkelijkste deel. Neem 
dan een wijde bocht naar 170 gra¬ 
den. Dit is ‘17’ op het ‘headup dis¬ 
play’. Vlieg een tijdje recht door. 
Neem weer een ruime bocht totdat 
het vliegdekschip weer in zicht is. 
Neem ‘thrust’ terug tot 60% en doe 


de ‘brakes’ aan. Kijk nu met behulp 
van de uitvergrotingstoetsen ‘[’ en ‘]’ of 
u wel recht voor het vliegdek zit. Zo 
niet, corrigeer dan even. Laat het 
vliegtuig zakken tot zo’n 450 voet. 
Doe het ‘gear’ uit en laat de ‘arrestor 
hook’ zakken. Zak vlak voor het vlieg¬ 
dekschip, ongeveer een halve mijl, 
naar 250 voet. Laat het vliegtuig heel 
langzaam zakken. Denk er wel om, 
laat het vliegtuig niet beneden de 145 
voet komen, dit is immers de hoogte 
van het vliegdek. Zorg dat je bij de 
passage van het vliegdek op 160 tot 
170 voet zit. Gooi nu de ’thrust’ naar 
20% en laat het vliegtuig zakken. 
‘Touchdownü’ je hebt het gehaald! 
Denk er wel om, om de ‘thrust’ er he¬ 
lemaal, dus 0%, uit te gooien anders 
sodemieter je nog van het vliegdek in 
het water. 

Foutmeldingen en Include’s 

Heeft u ze nog niet gehad? De ‘ptr/int’ 
conversion WARNINGS. Juist ja. Te 
vaak dus. Hier is een afdoende oplos¬ 
sing voor. 

Zorg ervoor dat in het begin van uw C- 
source de include file ‘functions.h’ 
staat. Hierna heeft u geen last meer 
van de warning 121 ‘ptr/int conversi¬ 
on’. Een andere, nog wel eens voor- 


Listing Font’mania 

struct TextAttr ‘tekst; 
struct TextFont ‘NewFont; 
tekst->ta_Name=(UBYTE *)"ruby.font''; 
tekst->ta_YSize= 1 5 ; 
tekst->ta_Style=FSF_NORI\/IAL; 
tekst->ta_Flags=FPF_DISKFONT; 
if((NewFont=(struct TextFont *) 
OpenDiskFont(tekst))==0) 
exit(FALSE); 

SetFont(lntuitionBase->ActiveWindow-> 
RPort,NewFont); 
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komende warning is nummer 124: ‘in- 
valid ptr/ptr conversion’. Als u deze op 
het beeldscherm ziet verschijnen 
heeft u waarschijnlijk eegn zogenaam¬ 
de ‘casting’ fout gemaakt. Probeer 
eens te casten naar (UBYTE *). In 99 
van de 100 gevallen zal dit de oplos¬ 
sing zijn. 

De juiste datum 

In deze aflevering hebben we, zoals u 
waarschijnlijk al gezien heeft, veel tips 
en trucs voor de programmeertaal C. 
Ook de volgende is een in C geschre¬ 
ven TIP van FLIP. De datum, bij de 
Amiga, is uit de structure DateStamp 
te lezen, welke te vinden is in de inclu- 
de file ’libraries/dos.h’. Deze structure 
ziet er als volgt uit. 

struct DateStamp { 

LONG ds_Days; 

LONG ds_Minute; 

LONG ds_Ticks; 

}; 


Listing DataStamp 

#include "exec/types.h" 

int mnd[13]={0,31,28,31,30,31,30,31,31, 

30,31,30,31 }; 

char datumbuffer[10]; 

Datum(n) 

ULONG n; 

{ 

SHORT maand,jaar; 

BOOL schrikkelj; 

ULONG rest; 

jaar=78; maand=1; 
schrikkelj=FALSE; rest=n+1; 

while(rest > mnd[maand]) 

{ 

rest-=mnd[maand]; 
if(maand==2 && schrikkelj) 
rest--; 

if({++maand)==13) 

{ 

maand=1; 

jaar++; 

schrikkelj=;(jaar % 4)==0; 

} 

} 

sprintf(datumbuffer,"%2d-%2d-%2d", 
rest,maand,jaar); 
if(rest) datumbuffer[0]=’0’; 
if(maand) datumbuffer[3]=’0’; 

} 

mainQ 

{ 

Datum(IOOO); 

printf("1000 dagen sinds 1-1-78 is 
I ;%s\n",datumbuffer); 

[} 


Als u nu het element Date- 
Stamp.ds_Days uitleest zult u zien 
dat hierin geen datum vermeld is maar 
dat er een getal staat. Dit getal blijkt 
het aantal dagen sinds 1 januari 1978 
te zijn. Wat hebben we nu nodig. Een 
routine die het aantal dagen sinds 1- 
1-78 omrekent in de huidige datum. 
Deze routine maakt geen gebruik van 
de DateStamp structure. Dit laten wij 
aan u over om dat erin te bouwen. Bo¬ 
venstaande routine is meer een illus¬ 
tratie hoe het kan worden. 

RAD, FAST, PASTEST 

De programmeurs van Commodore 
konden ons niet meer plezier doen. 
De resetvrije RAM disk was een ge¬ 
schenk uit de hemel. Toch zat een 
ding ons niet helemaal lekker. Vol¬ 
gens de bijgeleverde handleiding was 
het mogelijk deze ram-disk te format¬ 
teren onder FFS, ofwel het FastFile- 
System. Floe dan? was onze grote 
vraag. Eigenlijk was het niet eens zo 
moeilijk. Onderstaande listing geeft 
aan wat u in de ‘Mountlist’ moet veran¬ 
deren. 


RAD: Device = ramdrive.device 

Unit = 0 

Flags = 0 

GlobVec = -1 

Surfaces = 2 

BlocksPerTrack = 11 

Reserved = 2 

Interleave = 0 

LowCyl = 0; FlighCyl = 21 

Buffers = 5 

BufMemType = 1 

DosType = 0x444f5301 

FileSystem = l:FastFileSystem 

# 

Zo, als u dit over de oude RAD-entry 
in de Mountlist heeft heengetypt kunt 
u de Mountlist weer wegsaven. Typ, 
nadat de editor klaar is met z’n werk, 
in het DOS venster in mount RAD: 
Dit zorgt ervoor dat het systeem 
RAD: herkent. Als u nu de error 
‘RAD: already mounted’ op het 
beeldscherm ziet verschijnen zult u 
de computer moeten resetten. U 
heeft de ram-disk dan al gemount. 
Nu moet de computer eerst gereset 
worden om hem de nieuwe gege¬ 
vens omtrent de ram-disk te vertel¬ 
len. Als alles klaar is typt u in 
format DRIVE RAD: NAME RESV 
FFS. 

Dit zorgt ervoor dat de ram-disk on¬ 
der FFS geformatteerd wordt. That’s 
all folks! Oh ja, nog een opmerking 
omtrent de naam ‘RESV’. U zult het 
waarschijnlijk wel begrepen hebben, 
dit is gewoon de naam van de ram- 


disk. U mag hier elke willekeurige 
naam neerzetten die u maar wilt. 

Fine-getuned PRINT werk 

Het commando LOCATE brengt veel 
genoegens met zich mee. Hierdoor is 
het mogelijk de cursor bij een PRINT 
opdracht op een willekeurige plaats 
neer te zetten. Toch heeft het ook wel 
nadelen. Bij een grafisch geörienteer- 
de machine als de Amiga is het soms 
wel makkelijk om de cursor op de pixel 
nauwkeurig te kunnen ‘locaten’. Hie- 
voor zijn enkele oplossingen mogelijk. 
De onderstaande is hier een voor¬ 
beeld van. 

SUB NewLocate(x%,y%) STATIC 

CALL Move&(WINDOW(8),x%,y%) 
END SUB 

De aanroep van deze subroutine is 
zeer eenvoudig. NewLocate x,y 
Houdt echter wel goed in de gaten dat 
u in het begin van uw programma de 
library ‘graphics.library’ moet meene¬ 
men. Voor de volledigheid hebben we 
maar even een klein voorbeeld pro¬ 
grammaatje geschreven. Houd ons 
niet verantwoordelijk voor de simpel¬ 
heid ervan, het is alleen maar een il¬ 
lustratie van het bovenstaande. 

LIBRARY "graphics.library" 

NewLocate 100,100 
PRINT "Dit is alleen maar een voor¬ 
beeld" 

END 

SUB NewLocate(x%,y%) STATIC 
CALL Move&(WINDOW(8),x%,y%) 
END SUB 

Zoals u ziet, als u dit kleine frutseltje 
heeft overgetypt, zal de tekst "Dit is al¬ 
leen maar een voorbeeld" vanaf de 
cursor locatie 100,100, dus ergens 
midden in het beeldscherm, geprint 
worden. 

Simultaan RESIDENT voor 
WBl.2 

Heeft u 1 diskdrive en heeft u er ook 
zo’n hekel aan iedere keer uw DOS 
commando’s naar de RAM-disk te 
moeten copiëren om van een andere 
schijf de directory bijvoorbeeld te kun¬ 
nen bekijken. Juist ja. De DOS com¬ 
mando’s hebben voor dit soort zaken 
een verborgen maar oh zo handige 
I optie. Vermeld achter het DOS com- 
j mando een plus, ‘-r’. Dit zorgt dat het 
commando wacht op een lel op de 
RETURN toets voordat het begint met 
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de uitvoering van zijn, door de pro¬ 
grammeur opgegeven, taak. Dus 
neem als voorbeeld het bekijken van 
een directory van een andere schijf. 
Typ in DIR DFO: +. DIR wacht nu tot u 
een RETURN heeft gegeven. Vervol¬ 
gens zal het z’n normale taak uitvoe¬ 
ren. 

PINBALL WIZARD 

Dit is één van de spelen die ons, niet 
echte spelenfreaks, toch tot in de 
kleinste uurtjes kon boeien. Echter na 
verloop van tijd werden de geluidsef¬ 
fecten een beetje saai of beter ge¬ 
zegd, eentonig. Hiervoor hebben we 
een oplossing gevonden. Het blijkt dat 
de makers ontzettend netjes waren, 
want ze creëren voor de geluidseffec¬ 
ten, of ook wel de audiosamples, een 
aparte directory. Deze directory is ge¬ 
naamd ‘sfx’. Nou waren er twee we¬ 
gen te volgen waarlangs we de ge¬ 
luidseffecten aan het programma kon¬ 
den toevoegen. De eerste was de 
meest drastische. Deze vereiste dat 
het programma zelf aangepast moest 
worden. Dit is iets wat je ten allen tij¬ 
den moet vermijden. De tweede te 
volgen strategie was nieuwe samples 
te pakken en deze vervolgens de na¬ 
men van de oude geluidseffecten te 
geven. Dit was de eenvoudigste en 
dus de meest voor de hand liggende 
keuze. Hoe ziet de ‘sfx’ directory er 
nou uit? 

sfx (dir) 

bommbrum 
buml bumper 
dingdingdrip 
droehn dum 
eug groll 

laugh operator 

tsong2 umpf 
uuh zupp 

Door nu een programma te nemen 
waarmee audiosamples zijn te beluis¬ 
teren, bijvoorbeeld het Public Domain 
programma Perfect Sound, kunnen 
we bekijken welke samples we aan 
willen passen. Vervolgens nemen we 
een nieuwe sample en kopiëren deze 
naar de ‘sfx’ directory onder de oude 
naam. We geven een voorbeeld. Stel 
u heeft een sample genaamd ‘glass’ 
op de ramdisk staan waarin glasgerin¬ 
kel te horen is. Dit wilt u hebben in 
plaats van het lachen. Copy 
ram:glassdfO:sfx/laugh zorgt ervoor 
dat dit bereikt wordt. Nog wel even 
een opmerking omtrent de lengte van 
de audiosamples. Denk erom dat de 
lengte van de nieuwe samples niet te¬ 
veel afwijkt van de oude. Dit kan soms 
wel eens catastrofale gevolgen heb¬ 


ben. Maak daarom eerst een kopie 
van de Pinball Wizard schijf. Voer uw 
slooppolitiek daarna op de gekopieer¬ 
de schijf uit. In geval van een hemel- 
schokkende fout kunt u altijd weer de 
oude schijf kopiëren. 

Waaaaah, een Byte 
Bandiet!!! 

Byte Bandit virussen. Waarschijnijk 
heeft elke Amiga gebruiker er wel 
eens last van gehad. Zelf al is deze 
gebruiker hartstikke ‘straight’ en ‘cle¬ 
an’, nog bestaat er de mogelijkheid 
dat via dataschijven van vrienden et- 
cetera uw schijven besmet raken met 
virussen. Voor de Byte Bandit is er 
een oplossing. Als de Byte Bandit in 
actie treedt wordt het beeldscherm 
donker. Om het beeldscherm terug te 
krijgen moet u op de toetsencombina¬ 
tie [ALT],[Commodore (de linker 
Amigatoets)],[Spatie],[Amiga (de 
rechter)] en [Alt] drukken. Het beeld¬ 
scherm komt hiermee weer terug. Dit 
is waarschijnlijk door de programmeur 
ingebouwd om er voor te zorgen dat 
zijn eigen schijven niet besmet raak¬ 
ten tijdens de ontwikkeling van het vi¬ 
rus. Een methode om ervoor te zor¬ 
gen dat uw eigen schijven niet besmet 
raken met virussen van wat voor soort 
dan ook is regelmatig de bootsector 
van uw niet ‘write-protectede’ schijven 
te controleren. Heeft u een DiskMoni- 
tor? Goed, deze dus gebruiken. Con¬ 
troleer block 0 en block 1 op eventu¬ 
ele verdachte teksten. Er circuleren 
tegenwoordig nogal wat virussen. 
Krijgt u bijvoorbeeld de melding 
‘DON’T PANIC, Marl of LSD is 
Here..-.The Virus was Strong 
!!..A.But LSD is StrongerPP..’ raak 
dan niet in paniek. Over het algemeen 
heeft een diskmonitor wel een routine 
om de bootsector te installeren. An¬ 
ders is het zaak een WorkBench kopie 
te pakken die nog niet geïnfecteerd is 


en hiervan het ‘install’ commando te 
gebruiken. Zet dan eerst uw computer 
voor ongeveer 10 seconden uit. Start 
daarna met deze WorkBench op. Pak 
de geïnfecteerde schijf en installeer 
de bootsector hiervan opnieuw. Nog 
een laatste opmerking omtrent virus¬ 
protectors. Laat u zich niet verleiden 
om deze te laten staan, in werkelijk¬ 
heid kunnen dit ook wel eens virussen 
zijn!! 

Afdrukken zonder ingrepen 

Heeft u het niet gehad? U kon uw prin¬ 
ter niet instellen doordat de printer-dri- 
ver zat te etteren. Natuurlijk was deze 
printerdriver niet voor uw printer be¬ 
doelt maar deze was de enige die in 
de buurt kwam. Het is mogeiijk vanuit 
DOS de printer zonder printerdriver 
bemoeienissen in te stellen. Typ in 
Copy * to par: Dit ‘par:’ device zorgt 
ervoor dat de data niet omgezet wordt 
door de printerdriver maar recht¬ 
streeks naar de printer wordt ver- 
; stuurt. Alle codes die daarna vanaf het 
toetsenbord worden ingetypt worden 
zonder omzetting naar de printer 
doorgestuurt. Beëindig de stuurop- 
drachten met ‘Control-V. 

Tot slot 

Ook deze keer zijn we er weer in ge¬ 
slaagd een rubriek vol tips en trucs te 
verzamelen. Toch hebben we hier nog 
meer hulp voor nodig. Stuur daarom 
massaal uw adviezen in. Het geeft 
niet op wat voor gebied. Speladvie- 
zen, routine’s in C, Basic, machine¬ 
taal, Modula-2, adviezen voor teken¬ 
programma’s, Alles is welkom! Zo, dit 
was het voor deze keer. ‘Sleep tight’, 
hou het netjes, en denk erom, alle ze¬ 
gen komt vanaf je beeldscherm.. 

Tot de volgende keer. 
JOHAN&JOHAN 
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In deze alweer zesde aflevering van de CLI cursus gaan we verder waar we gebleven 
waren. Even ter herinnering, we waren bezig met het beschrijven van commando’s van 
Workbench 1.3. In de vorige aflevering besloten we met het commando FF. Van daar 
af zullen we de draad weer oppakken. 

Binnenin AmigaDOS (6) 

Commando’s van de WorkBench 1.3 


O ok al zullen sommigen onder u nog niet over WorkBench 1.3 beschik¬ 
ken, toch loont het de moeite om deze cursus te biijven voigen. Immers 
spoedig zuit u ook met WorkBench 1.3 om moeten gaan. Dan is het bijzon¬ 
der handig ai het één en ander van deze nieuwe DOS te weten. Tevens is het 
zo dat er zoveei nieuwe (enorm handige) commando’s bijgekomen zijn, dat 
het werken zonder deze nieuwe commando’s voor ons een hei op aarde zou 
zijn. Goed, lichtelijk overdreven maar het volgen van deze cursus is zeker 
de moeite waard. We pikken de draad weer op na het laatste commando dat 
we de vorige keer beschreven hebben. Weet u het zich nog te herineren? Het 
laatste commando van de vorige keer was FF, wat voor FastFonts stond. 


FixFonts 

Qua naam toont het enige gelijkenis 
met het vorige commando. Toch is de 
werking hiervan totaal anders. Fix¬ 
Fonts zorgt ervoor dat de zogenaam¬ 
de ‘.font’ files in de FONT directory ge¬ 
actualiseerd worden. Dit wil zoveel 
zeggen dat als u fonts bijvoorbeeld 
verwijderd heeft maar de ‘.font’ files 
heeft laten staan, ‘FixFonts’ ervoor 
zorgt dat deze verwijderd worden. Al¬ 
gemeen gezegd: FixFonts kijkt of van 
elke ‘.font’ file ook een tegenhanger, 
het eigenlijke font dus, in een van de 
subdirectories aanwezig is. De alge¬ 
mene syntax luidt; 

FIXFONTS 


De ENV-Handler 

De volgende 2 commando’s hebben 
betrekking op de ENV(ironment) 
handler. Eigenlijk is dit nog niet een 
echte Handler. Deze is nog in ontwik¬ 
keling. Nu wordt nog gebruik gemaakt 
van de RAM disk. Kijk maar eens op 
de RAM disk. Als alles goed is ziet u 
hier een directory met de naam ENV 
staan. Hierin worden voorlopig de ge¬ 
gevens, die de commando’s ‘SetEnv’ 
en ‘GetEnv’ nodig hebben, opgesla¬ 
gen. De bedoeling van de ENV-Hand¬ 
ler is dat hiermee variabelen binnen 
AmigaDOS opgeslagen kunnen wor¬ 
den. Hierbij zijn 2 commando's van 
belang. Namelijk: 


GetEnv en SetEnv. 

SetEnv 

Met ‘SetEnv’ wordt het nu mogelijk 
aan een variabele een string te hech¬ 
ten. Door deze variabele weer op te 
roepen krijgt men de string weer te 
zien. De syntax van ‘SetEnv’ luidt: 
SetEnv [variabelenaam] [string] 

Een voorbeeld van ‘SetEnv’. SetEnv 
test "goedemiddag luitjesl". Nu is dus 
aan de variabele ‘test’ de string "goe¬ 
demiddag luitjes!" gehecht. 

GetEnv 

j De met ‘SetEnv’ opgeslagen variabe¬ 
len kunnen weer zichtbaar gemaakt 
worden met behulp van het comman¬ 
do ‘GetEnv’. Door nu het bovenstaan¬ 
de voorbeeld te vervolgen, (typ in:Ge- 
tEnv test) zal de string "goedemiddag 
luitjes!" weer op het scherm verschij¬ 
nen. Eigenlijk vervult de commando- 
reeks Copy ram:env/test * dezelfde 
functie. Dit komt immers doordat de 
ENV-handler nog geen echte handler 
is maar de variabelen op de RAM disk 
opslaat. Algemeen gezegd is de syn¬ 
tax van GetEnv; GetEnv [variabele¬ 
naam]. 

GraphicDump 

Weer zo’n al bestaande utility die nu 
ook als DOS commando aan te roe¬ 
pen is. Met GraphicDump, de naam 
zegt het al, wordt het voorste scherm 
‘gedumped’ op de printer. Gra- 
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phicDumpzal ongeveer 10 seconden 
wachten voordat het de printer aan 
het werk zet. De syntax; 

Grapicdump [TINY][SMALL][MEDI- 
UM] [LARGE][xdots/ydots] 

Er zijn, zoals de oplettende lezer al 
gemerkt heeft, 5 opties bij dit com¬ 
mando. 

TINY : De grootte van de afbeelding 
is ongeveer 1/4 van de totale breedte 
die toegestaan is door de printer. De 
hoogte is in overeenstemming met de 
‘aspect ratio’, dus de vervorming om 
een betere graphicdump te krijgen, 
van het scherm. 

SMALL : De breedte van de gra¬ 
phicdump is nu 1/2. 

MEDIUM: De breedte is in dit geval 
3/4 van de totale breedte. 

LARGE : Nu beslaat de graphicdump 
de volle breedte van de door de prin¬ 
ter toegestane breedte, xdots/ydots: 
‘xdots’ geeft de absolute hoogte van 
de dump in pixels aan. ‘ydots’ is het¬ 
zelfde alleen geeft dat de breedte van 
de dump aan. 

IconX 

Even een uitstapje naar de Work- 
Bench. We zullen hier geen gewoon¬ 
te van maken, maar dit commando is 
zo bijzonder dat behandeling ons 
noodzakelijk leek. IconX, de zoge¬ 
naamde grafische tegenhanger van 
het EXECUTE commando. Met IconX 
is het mogelijk script files, dus batch 
bestanden, uit te voeren vanuit de 
WorkBench in plaats van uit de 
SHELL of CLI. IconX opent zelf een 


window. De grootte van het window is 
in te stellen in de ‘.info’ file met behulp 
van het menu punt ‘info’ in de Work¬ 
Bench. Twee commando’s zijn van 
belang in deze ‘.info’ file, WINDOW= : 
hiermee is de grootte van het wind¬ 
ow in te stellen. 

DELAY= : hiermee kunt u een vertra¬ 
ging in stellen. 

Om nu het batchbestand uit te kunnen 
voeren dient de ‘default tooi’ van het 
icon gewijzigd te worden naar 
"c/lconX". Click, nadat u de wijzingen 
‘gesaved’ heeft, op het icon. Vervol- 
I gens zal het batchbestand uitgevoerd 
I worden. 

InitPrinter 

Een hele korte. InitPrinter zorgt er¬ 
voor dat het printer device, de gege¬ 
vens die u in de Preferences ingesteld 
heeft, opnieuw ingelezen worden. De 
syntax luidt: Initprinter 

Lock 

Dit commando is alleen voor de hard¬ 
disk bezitters interresant. Wat doet 
het? Wel, met Lock wordt de write 
protect status van de harddisk cq, par- 
titie gewijzigd. Voorwaarde is wel dat 
u die HardDisk gebruikt onder FFS. 
De syntax, Lock [drive] [ON|OFF] 
[password] 

Zoals u ziet is het mogelijk een pass¬ 
word mee te geven. Als u de drive of 
de partitie ‘gelocked’ heeft met een 
password dan is dit password ook 
weer nodig om deze drive/partitie te 
‘uniocken’. Nog even een opmerking 
omtrent dit password. Deze mag niet 
meer dan 4 karakters groot zijn. 

More 

I 

Voor de meesten onder ons zal deze 
utility wel bekend zijn. Juist ja, Aztek 
C leverde deze altijd mee. Nu wordt ze 
dus ook standaard geleverd op de 
WorkBench schijf. Deze utility is een 
soort veredelde TYPE instructie. Met 
‘More’ wordt het wat handiger een file 
of een tekstbestand te controleren. Bij 
TYPE immers, ging de uitvoer conti¬ 
nue door. More wacht na elke bladzij¬ 
de op een druk op de spatiebalk. Te¬ 
vens wordt dan vermeld hoeveel pro¬ 
cent van de file al afgedeeld is. De 
syntax luidt: More [filenaam]. 

Binnen de utility ‘More’ is het mogelijk 
de uitvoer te beïnvloeden met behulp 
van een aantal toetsencombinaties. 
Even een overzicht: 
q of CTRL-c : Quit 
h : Help 

[Spatiebalk] : Volgende bladzijde 
[Return] : Volgende regel 


/ string : Zoek naar ‘string’. Er 
wordt onderscheid gemaakt 
tussen UPPERCASE en 
LOWERCASE letters 
. string : Zoek naar ‘string’. Er 
wordt geen onderscheid tussen 
LOWER- en UPPERCASE 
gemaakt 

n : Herhaal laatste zoek 

operatie 

CTRL-L : Beeld het scherm 
opnieuw af 

< : Beeld de eerste bladzijde af 

: Beeld de laatste bladzijde af 
%N : Ga naar ‘N’% van de file 
[Backspace] : Beeld de voorgaande 
bladzijde af 

E : Roep de EDITOR op. 

Het ‘pad’ hierna moet opgegeven wor¬ 
den in de ENV variabele ‘EDITOR’. 
Een voorbeeld hiervan. SetEnv EDI¬ 
TOR "c/ed". Nu zal, als u de SHIFT-E 
toets indrukt, ‘Ed’ verschijnen. Hierin 
wordt de file afgedeeld die u zonet aan 
het bekijken was. Nog even een voor¬ 
beeld omtrent het gebruik van ‘More’. 
Geef op, Type 
ram:test dfO:c/dir hex. 

Vervolgens typt u in More ram:test. 
More verschijnt nu op bladzijde 1. Er 
is 5% van de file voorbij. Druk de pro- 
centtoets, in en typ erachter ‘50’. 
More gaat nu naar 50% van de file. Dit 
kunt u onderaan de bladzijde op de 
statusregel zien. 

NewShell 

We hebben het er in de vorige aflve- 
ring al even over gehad, de nieuwe 
SHELL. Deze nieuwe SHELL is op 
twee manieren te activeren. Ten eer¬ 
ste, door op het SHELL-icon in de 
WorkBench te klikken. Dit is de sim¬ 
pelste manier. De tweede is vanuit 
een CLI venster of batchbestand te 
doen. Typ in NewShell. Snel hierna 
zal een nieuw venster verschijnen met 
daarin de melding ‘New Shell process 
XX’ waarbij ‘xx’ staat voor een proces¬ 
nummer. De syntax van NewShell: 
NewShell "window-specificaties" 
[FROM] [filenaam] 

NewShell kent twee opties, namelijk 
de window-specificaties en het FROM 
keyword. De window-specificaties 
dienen binnen de aanhalingstekens of 
quotes gezet te worden. Een voor¬ 
beeld: 

Newshell "newconil0/10/620/150/ 
TestWindow" FROM s/Opstart. 

In dit voorbeeld wordt de NEWCON: 
handler gebruikt voor de toetsenbor- 
dinvoer, de startcoordinaten zijn 
10,10, de breedte en de hoogte zijn 
640,150 en als laatste het Window is 


68 


Commodore Info 2/89 



getiteld "TestWindow". Verder wordt 
een batchbestand uitgevoerd nadat 
het Window geopend is. Dit batchbe¬ 
stand heet ‘Opstart’ en wordt in dit 
voorbeeld gevonden in de s-directory. 
Als u geen batchbestandnaam invoert 
zal er een ‘default’ batchbestand uit¬ 
gevoerd worden. Deze heet S:Sheli- 
startup. 

RemRad 

Ooooh, wat gemakkelijk zo’n reset- 
vrije RAM(p)-disk. Lekker alle C-sour- 
ces op de RAM disk houden. Geen 
gekiooi met iedere keer een backup 
wegschrijven naar de diskette toe. 
Heeriijkl! Aaiii, iets te vroeg gezegd. 
Net een database ingeladen met een 
behoorlijk groot bestand, en ik heb te 
weinig geheugen. Hoe kan dat nou? 
Oh, oh.... de resetvrije RAM-disk zit in 
de weg. Goed, er is maar een weg 
naar de vrijheid en dat is de zwarte 
knop aan de achterkant....UIT dus!! 
Nee hoor, niet waar, ook op dit pro¬ 
bleem hebben de ‘boys’ van Commo¬ 
dore wat gevonden (ze hebben er ze¬ 
ker zelf ook last van ondervonden). 
Het commando RemRad verwijdert 
onmiddeiijk en zonder pardon de 
RAM-disk ‘RAD:’ Reset de computer 
vervoigens en weg is ie!!! Geen moei- 
üjke syntax dit keer, Remrad 

Say 

Ai weer een tot ieven gekomen Work- 
Bench utiiity. Met Say is het mogeiijk, 
zoals het woord eigenlijk al zegt, een 
ingetypte tekst hoorbaar te krijgen. 
Wat moet u dan doen hoor ik u al vra¬ 
gen. Gewoon opletten wat nu gaat ko¬ 
men. De algemene syntax van Say 
luidt: 

Say -m -f -r -n -s[grootte] -p[grootte] 
-X [filenaam] [SAY-string] 

Weer een behoorlijke dosis opties: 

-m ; mannelijke stem (Male) 

-f : vrouwelijke stem (Female) 

-r : stem zonder intonaties (Robot) 

-n : stem met intonaties (Natural) 

-s## : snelheid (40-400) 

-p### : stemhoogte (pitch)(65-320) 

-X [fiienaam] : maak de inhoud van de 
file genaamd ‘filenaam’ hoorbaar. 

Samen met de zogenaamde SPEAK- 
handier vervullen deze twee zo’n bee¬ 
tje hetzelfde doel, namelijk getypte 
tekst in een gesproken vorm hoorbaar 
te krijgen. 

SetPatch 

Het is de oplettende lieden onder ons 
waarschijnlijk wel eens opgevallen dat 
de zogenaamde ‘Recoverable Alerts’ | 


helemaal niet Recoverable zijn. Ook 
deze leiden tot een ‘deadend’. Dit is 
een ‘bug’ jn de v1 .2/1.3 Kickstart. An¬ 
dere ‘bugs’ zijn, problemen met de 
68000 exception vectoren, de Delete- 
LayersO routine en de Exec functie Al- 
locEntry(). Om deze redenen is het 
commando SetPatch in het leven ge¬ 
roepen. SetPatch zorgt ervoor dat de 
tekortkomingen in het Kickstart ROM 
opgeheven worden. Gewoonlijk wordt 
het commando al in de startup-se- 
quence uitgevoerd. Hierna is het niet 
meer nodig dit commando aan te roe¬ 
pen. De syntax van het commando is 
als volgt:Setpatch. 

Het is mogelijk om, als u de uitvoer 
van SetPatch niet wilt zien, deze om 
te leiden naar het NIL: device. Dit NIL 
device is in de WorkBench wel be¬ 
kend als de Trashcan. 

Which 

Als laatste nieuwe commando is er 
dan nog het commando Which. Met 
‘Which’ is het mogelijk geworden om 
een bepaalde file of commando/pro¬ 
gramma op schijf te lokaliseren. Stel u 
wilt weten waar op schijf, of eigenlijk 
in welke directory, het DIR commando 
staat. U geeft vervolgens op Which 
dir. Als alles goed is zal er vervolgens 
op het beeldscherm verschijnen 
[schijfnaam]: c/dir. De syntax van 
Which: 

Which [filenaam] [RES][NORES] 

De optie RES zorgt ervoor dat er al¬ 
leen in de RESIDENT-list gezocht 
wordt. NORES zorgt ervoor dat juist 
NIET in de RESIDENT-list gezocht 
wordt. Als het commando niet gevon¬ 
den wordt dan zal de WARN flag ge¬ 
zet worden. 

Devices en handlers 

Een aantal nieuwe devices en hand¬ 
lers hebben we al behandeld, immers 
bij de SHELL hoorde het NEWCON: 
device en bij de commando’s GetEnv 
en SetEnv,d hoorde de ENV-handler. 
Blijven er nog vier genomineerden 
over, namelijk de AUX-, de PIPE- en 
de SPEAK-Handlers en het RAMDRI- 
VE device. 

AUX-Handler 

De AUX-Handler is een variant op de 
SER- Handler. Het leest en schrijft in¬ 
formatie naar en van de seriële poort. 
Toch behandelt de AUX-Handler de 
informatie iets anders. Hiermee be¬ 
doelen we dat de AUX-Handler de in¬ 
formatie niet buffert maar rechtstreeks 


doorgeeft. Hiermee wordt het eindelijk 
mogelijk een terminal op de Amiga 
aan te sluiten, deze een achtergrond- 
taak toebedelen en tataaaaa, multi- 
tasking in volle glorie, we hebben van 
de Amiga een mini-fileserver ge¬ 
maakt. 

Hoe gebruiken we nou de AUX-Hand¬ 
ler. Ten eerste moet u ervoor zorgen 
dat ze ‘gemount’ is. Is dit niet gebeurt 
dan moet u dit alsnog doen. Het com¬ 
mando MOUNT AUX: zal dit doen. 
Vervolgens moeten we de binnenko¬ 
mende terminal nog een DOS-taak 
toebedelen. Erg moeilijk is dit niet, 
geef op NEWSHELL AUX;. Voor u zal 
het lijken alsof er niets gebeurt, alleen 
de diskdrive heeft even gerammeld. 
Heeft u nog een tweede Amiga, PC of 
een oude 64/128 staan? Goed, sluit 
deze eens aan op de seriële poort van 
uw ‘servende’ (lees goed, geen ster¬ 
vende!!) Amiga. Pak een terminal pro¬ 
gramma. Et voila, it is the pleasure of 
the computerageü Voor C- of machi¬ 
netaal programmeurs is dit ook bijzon¬ 
der handig. Hoe vaak heeft u bij uw 
‘trial and error’ programmeer methode 
niet gehad dat u de melding ‘Task 
Held’ op het scherm kreeg. Tja, zon¬ 
der resetvrije RAM-disk was dit een 
bijzonder pijnlijke zaak. Als u dan nog 
een terminal aan uw Amiga gehad 
had waren er nog geen problemen, 
immers deze taak was nog steeds vol 
vuur en levendigheid. Simpelweg de 
files redden door ze naar schijf te 
kopiëren en laat de computer zich dan 
maar weer herstellen. 

Pipe device 

Stel nu, u heeft een terminal een ach- 
tergrondtaak toebedeeld. Met behulp 
van de optie FROM bij het NewShell 
commando kunt u een alternatief 
batchbestand uitvoeren. Hierin wordt 
het dan mogelijk een PASSWORD te 
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laten vragen of zelfs een Interactleka- 
naal met de gebruiker van de achter- 
grondtaak op te zetten. Om dit te doen 
moet u dan een soortgelijke comman- 
doreeks in de alternatieve shellstartup 
toevoegen, run dfO:s/watch Hierbij is 
‘watch’ een kleine routine die we nu 
zullen laten zien; 
resident dfO:c/lab 
resident dfO:c/skip 
resident dfO:c/type 
changetaskpri 10 
lab loop 

type pipe:syst.mess 
skip loop back 

Deze kleine routine wordt als een klei¬ 
ne achtergrondtaak opgestart. Deze 
taak doet maar één ding. Ze kijkt naar 
het PIPE: device of daar de melding 
‘syst.mess’ binnenkomt. Zo ja, dan zal 
ze deze op het beeldscherm laten 
zien. Dus typt u vanuit uw eigen taak 
nu in Copy * PIPEisyst.mess dan zal 
alles wat u intypt, voordat u de copy 
opdracht met behulp van CTRL-\ 
beëindigt, door worden gestuurd naar 
de tegenoverliggende taak. Dus, hier¬ 
mee wordt de betekenis van het PIPE: 
device ook al wat duidelijker, het is 
een interactief device. Het is mogelijk 
er boodschappen, teksten, waarden, 
etcetera in te stoppen die met een an¬ 


der programma of een andere taak 
weer uitgelezen kunnen worden. 

SPEAK-Handler 

Met de SPEAK-Handler is het moge¬ 
lijk geworden getypte teksten gespro¬ 
ken hoorbaarte krijgen. Eigenlijk geldt 
hierbij weer hetzelfde verhaaltje als bij 
het SAY commando. Ook de SPEAK- 
Handler moet ‘gemount’ worden voor¬ 
dat ze gebruikt kan worden. Hoe be¬ 
heers ik nu de verschillende opties die 
bij SAY bijvoorbeeld mogelijk waren, 
zult u zich afvragen. We geven een il¬ 
lustrerend voorbeeld, 
copy dfO:s/startup-sequence to 
speak:opt/m/p80 

Zoals u al ziet, de opties worden ach¬ 
ter de devicenaam en drie letters ‘opt’ 
vermeld. De opties zijn, 

p### : pitch (65-320) 
s### ; speed (30-400) 

M : mannelijke stem 
F : vrouwelijke stem 
R : monotone stem 
N : natuurlijke stem 
OO ; de opties mogen niet gebruikt 
worden bij de inputgegevens 
01 : de opties mogen juist WEL 
gebruikt worden bij de 
inputgegevens 

AO : schakel de fonetische omzetting 


uit 

Al : schakel de fonetische omzetting 
aan 

DO : breek de zinnen ALLEEN bij 
punten af 

Dl ; breek de zinnen af bij punten, 
RETURNS en LINEFEEDS 

Het RAMDRIVE-device 

Deze superdeluxe, flitsende, turbos- 
tellaire devicenaam doet ons toch ie¬ 
dere keer weer denken aan Ferrari 
Testarossa’s, voorbij suizende Cor- 
sairs en wat al niet meer. Dit device 
zorgt ervoor dat we zoveel plezier be¬ 
leven aan het programmeren tegen¬ 
woordig. Juist, dit device is nodig voor 
de resetvrije RAM-disk. Zo. Meer valt 
er niet van te vertellen. 

Tot slot 

Hiermee nemen we voor deze keer 
weer afscheid. De volgende keer 
gaan we onder andere aandacht 
schenken aan de commando’s die al 
bestonden maar Inmiddels zo ver¬ 
minkt, sorry, verbeterd zijn dat we ze 
maar weer moeten doornemen. 
JOHAN & JOHAN 


GEOS 2.0 UPGRADE 


NU OOK VOOR DE C-128 EN 128D 

De compleet vernieuwde en uitgebreide GEOS 2.0 is nu ook verkrijgbaar als upgrade-programma. Niet al¬ 
leen voor de C-64 maar nu ook voor de C-128 modellen 

I Alleen voor bestaande GEOS gebruikers. 

De upgrade pakketten worden compleet geleverd met orginele handleiding van meer dan 300 pagina’s. 
C-64 2.0 upgrade voor ƒ 99,00 incl. verzendkosten (Normale winkelprijs ƒ 149,00) 

C-128 2.0 upgrade voor ƒ 109,00 incl. verzendkosten (Normale winkelprijs ƒ 169,00). 

Stuur een betaalcheque voor ƒ 99,- of ƒ 109,- naar de importeur van Geos produkten- 
Frotech Nederland BV, Postbus 189, 3620 AD Breukelen. 

De nieuwe Geos 2.0 wordt u dan onmiddelijk toegestuurd. 

Als bewijs dat u reeds Geos gebruiker bent kunt u volstaan met het toezenden van de voorkaft van uw hui¬ 
dige Geos gebruikershandleiding met uw betaaicheque. 

U kunt met de nieuwe 2.0 versie gegarandeerd al uw oude applikaties zonder meer gebruiken voor 
Commodore 64 en 128 computers. 

Op de komende Computer Info beurs, 11 maart In de RAI, kunt u ook deze pakketten aanschaffen 


Vee! plezier en succes met 2.0 


70 


Commodore Info 2189 




PRINT OUT Amiaa Gas en elektrakaart 


Gas en Elektra 


I *** Programmeur Ronald Sloot, het programma is ge- 
ï schreven in amigaBasic. *** 

I In Nederland wordt door een groot aantal energie be- 
i drijven de ACTIE "Zuinig Stoken - Zuinig Aan" ge- 
I steund. Er wordt dan verwacht van de gebruiker dat 
hij de meterstanden van de Gas en electricteits- me- 
I ter bijhoudt. Deze moet hij dan invullen op een kaart 
I en daar dan verder nog wat extra dingen bij invullen. 


I Waarom dit niet op de computer doen, dat is toch 
|| veel handiger dan elke keer weer uitzoeken hoe het 
|| weer zat met dat invullen. Bij het Programma hoeft u 
I alleen het streefverbruik en de meterstand in te vul- 
i len, de rest doet het Programma. Het tweede grote 
I voordeel zijn de grafische mogelijkheden. 

I Het Programma houdt dus in feite de gegevens over- 
I zichtelijk bij elkaar en als er een foutje is gemaakt bij 
|| het invullen of iets dergelijks, nou dan verander je dat 
I toch even. Het programma heeft ook het voordeel dat 
I het elk jaar mee kan blijven draaien, wat je van een 
I kaartsysteem niet kunt zeggen. Elk jaar wordt op de 
j computer gewoon voorgesteld als een nieuwe file. 
I Om de gegevens van elk jaar te vergelijken draait u 
I gewoon de tabellen uit en wat nog makkelijker is, de 
I grafieken. 

I 

1 Het uitdraaien op de printer moet geen probleem zijn 
1 voor de Amiga gebruiker. Bij de workbench wordt im- 
I mers het programmaatje "GraphicDump" meegele- 
j verd. dus staat de grafiek op het beeldscherm, dan 
ga je naar het workbench SCREEN en klik je het 
I ikoon van GraphicDump aan en je gaat weer terug 
naar het Gas&Elec screen. (GraphicDump geeft je 
j zo’n 10 seconden om het screen te kiezen dat uitge- 
I print moet worden) 

j Het programma. 

I de menufuncties zijn: 

I =Project= =Opties= 

J * Laden * Verwissel 


J * Laden * 
ï * Opslaan 

* Printen 

* Stoppen 

* Resultaat 

* Grafisch 


* JaarKwh 

* WisAlles 

* Init 


Maar eerst iets over hoe men de kaart invult. 

GasTabel 

U kunt met de cursortoetsen door het veld heen wan¬ 
delen. De cursor kan op 2 soorten kolommen komen 
te staan: de gasmeterstand en de weekstreef ver¬ 
bruik kolom. Wilt u nu bv. op 9 oktober uw gasmeter¬ 
stand invullen, dan gaat u met uw cursor op het 9 ok¬ 
tober veld staan en tikt u de gasmeterstand in. zo 
doet u het ook op de verdere data. Merk wel op dat u 
onderaan de tabel moet beginnen (net zoals op de 
kaart) en dat de meterstand op 16 oktober natuurlijk 
hoger of gelijk moeten zijn aan die van 9 oktober. 


heeft u wel eens uw gasmeter terug zien lopen, nee 
alleen op zien lopen, doet u het toch fout dan geeft 
het prg. een BEEP en de meterstand die in het veld 
stond wordt weer teruggezet. Elke keer dat u zo’n 
veld invult berekend het programma het totale ver¬ 
bruik en het totale streefverbruik, wat u rechts onder 
in het WINDOW kunt zien. Eenmaal een cijfer ingetikt 
(Om de meter stand of weekstreef verbruik in te vul¬ 
len) kunt u gebruik maken van de backspace, DELE¬ 
TE en de cursortoetsen om een fout te verbeteren die 
u eventueel heeft gemaakt. U drukt op RETURN als 
u klaar bent met het invullen van de meterstand/het 
weekstreef verbruik. Het weekstreef verbruik op 16 
okt. hoeft natuurlijk niet groter te zijn dan op 9 okt! 
dat kan namelijk altijd verschillen (afhankelijk van 
temperatuur enz.) 

ElecTabel 

Wat betreft de invoer methode: hier precies het zelf¬ 
de als in de vorige kolom, alleen wordt hier het week¬ 
streef verbruik berekend (en hoeft U deze dus niet in 
te vullen) aan de hand van het jaarverbruik en varia¬ 
bele verlichtingsfactoren. Er is nog een verschil: als u 
2 telwerken heeft (voor laag- en hoogtarief) dan moet 
u de meterstanden van deze 2 telwerken in 2 naast 
elkaar liggende tabellen invullen. Alleen invullen dus, 
als u 2 telwerken heeft. 

Opmerking 1 

Wat zowel geldt voor de Elec als de Gas tabel: Wan¬ 
neer u de gegevens heeft ingevuld, dan komt er in de 
kolom ernaast het weekverbruik te staan. Vult u tus¬ 
sen 2 meterstanden iets in dan veranderen meestal 
de 2 weekverbruiken. 

Opmerking 2 

Het eerste streefgebruik (Bij Gas, want bij Elec wor¬ 
den ze berekend) dient op de week NA de startdatum 
ingevuld te worden, dit komt omdat je op de startda¬ 
tum nog niet kunt spreken van een verschil tussen 2 
meterstanden. Je kunt daar wel van spreken op bijv. 
16 oktober. Het verschil in meterstand is dan te bere¬ 
kenen: (16-9 okt) = verbruik. Probeert u op de Ie 
startdatum het streefgebruik in te vullen, dan zal het 
programma dus een BEEP geven, dit Programma 
werkt trouwens meestal met een BEEP als er ergens 
een fout optreedt. 


MenuFu n c t i e ’s 


Project - Laden/Opslaan 

Er verschijnen 3 gadgets: BreekAf, een DIR gadget 
en een FILE gadget. Klikt U in het DIR gadget (zie 
DIR) dan kunt u daar de naam van de directory intik¬ 
ken die u wilt bekijken. Bestaat de directory niet dan 
verschijnt er een foutmelding. Wilt u de functie stop¬ 
pen, dan drukt u op het BreekAf gadget, door op het 
FileGadget te drukken, kunt u de naam van de FILE 
intikken die u wilt laden of saven, drukt u op RE¬ 
TURN dan start het proces. 
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Project - Printen 

Deze functie PRINT de inhoud van de Gas- en Elec- 
Tabel uit. eerst wordt u gevraagd of de printer klaar 
is. drukt u op F2 of klikt u met de muis op het nee 
veld, dan keert u weer terug naar de "edit" mode. 

Project - Stoppen 

Eerst wordt u gevraagd of U wel echt wilt stoppen, 
een druk op F2 of een klik in het nee veld zorgt er¬ 
voor dat U weer teruggaat naar de "edit" mode. Klikt 
u op JA of drukt u op F1 (U gaat akkoord ) dan vraagt 
het prg. toch nog voor de zekerheid of U de FILE niet 
wilt saven. Nee, dan keert U terug naar de work- 
bench of CLI. JA, dan krijgt u hetzelfde te zien als U 
Project - Opslaan kiest. Nadat de FILE opgeslagen 
is, keert U naar de CLI of Workbench. 

Opties - Verwissel 

Met Verwissel kunt U van de Gas naar de ElecTabel 
en andersom. Is het JaarKwh nog niet ingevuld (hier¬ 
na behandeld) dan zal U gevraagd worden Om het 
dan alsnog in te vullen (het Programma activeert 
"JaarKWH" dan) Flet JaarKwh vindt u op de vorige 
afrekening. 

Opties - JaarKwh 

Er verschijnt een "requester" en U moet het JaarKwh 
intikken. Kiest u deze functie terwijl U in de ElecTabel 
zit, dan zult U zien dat de weekstreef verbruiken ver¬ 
anderd worden. 

Opties - WisAlles 

Flier is niet veel uitleg bij nodig lijkt mij zo. eerst wordt 
U gevraagd of U daar wel heel zeker van bent. drukt 
U op JA (of F1) dan wordt alles ook gewist. Wist U al¬ 
les terwijl U in de ElecTabel staat, dan wordt U gelijk 
NA het wissen gevraagd om het JaarKwh in te vullen 
(wat nodig is om de nieuwe weekstreef verbruiken te 
berekenen) 

Opties - Init 

Flet programma is bruikbaar voor elk jaar. Flet pro¬ 
gramma moet dan natuurlijk wel het jaar en de start¬ 
datum van de ACTIE weten. Ook zijn elk jaar de va¬ 
riabele verlichtingsfactoren anders, welke U dan ook 
hier kunt veranderen. U drukt op BreekAf als U weer 
terug wilt naar de EDIT-mode of als U klaar bent. In 
het WINDOW ziet U de regel staan waarin het jaar 
staat vermeld. Klikt U daar op, dan kunt U het nieuwe 
jaar intikken, met dat nieuwe jaar wordt pas wat ge¬ 
daan, als U op de regel klikt waar U de startdatum in 


moet vullen. Vult U een foute datum in (zodat bijvoor¬ 
beeld een maand maar 3 weken zou hebben) dan 
krijgt U een requester te zien dat U attendeert op uw 
fout. heeft U een goede datum gekozen, dan zult U 
onder het init WINDOW zien, dat de gehele scherm- 
opbouw wordt veranderd, dit is nodig omdat alle data 
te verschuiven en er in bepaalde maanden dan 5 in 
plaats van 4 metingen moeten plaatsvinden (of an¬ 
dersom). De variabele verlichtings factoren kunt U 
veranderen door achter het nummer van de verlich¬ 
tings factor te klikken (nr 1 stelt de Ie factor voor van 
de week tussen (1988/89) 9 en 16 oktober). U ziet 
dan een cursor verschijnen en U kunt hem verande¬ 
ren. 

Opties - Resultaat 

U kunt hierbij zien of U meer verbruikt heeft dan U ei¬ 
genlijk mocht, of dat U misschien wel zuiniger bent 
geweest. Is het Resultaat dat geprint wordt positief, 
dan bent U zuiniger geweest dan er werd verwacht. 
Is het Resultaat negatief, dan heeft U meer verbruikt 
dan U eigenlijk mocht, de resultaten kunnen ook naar 
de printer gestuurd worden, wat als eerste wordt ge¬ 
vraagd als de deze funktie heeft gekozen. 

Opties - Grafisch 

U kunt een grafiek laten tekenen van uw weekver- 
bruik (In verhouding tot het streefweek verbruik). Zijn 
geen van de grafieken beschikbaar (het Programma 
controleert eerst of er genoeg gegevens zijn voor een 
grafiek) dan wordt U "eruit gegooid", d.w.z. U keert 
terug naar de "edit" mode. Is 1 grafiek beschikbaar of 
zijn 2 grafieken beschikbaar, dan wordt U "toegela¬ 
ten" tot deze functie. Drukt U echter op het gadget 
voor de Gas of Elec grafiek en er zou voor deze gra¬ 
fiek te weinig gegevens zijn, dan hoort U een BEEP 
(1 van de 2 moet dan beschikbaar zijn, anders zou U 
niet toegelaten zijn). Is hij beschikbaar, dan zal de 
grafiek getekend worden, (de grafische uitleg kan wat 
betreft de grafiek, het wat duidelijker maken). De 
blauwe grafiek geeft het weekstreef verbruik aan en 
de paarse het weekverbruik. komt de paarse dus bo¬ 
ven de blauwe uit, dan heeft U teveel gebruikt. Tot 
waar dan eigenlijk het streefgebruik zou moeten zijn 
gekomen, wordt door een punt in de paarse bal 
aangegeven, (de blauwe is immers bedekt door de 
paarse) 

Flet Programma (niet gecompiled ) is zo’n 23K (BI¬ 
NAIR) groot. 


Gas elektrakaart 


Invoeren van het onderstaande programma dient te 
gebeuren in amigaBasic. Alle tekst moet achterelkaar 
worden ingevoerd tot dat men [RETURN] tegenkomt. 
Dit moet NIET worden overgenomen maar worden 
uitgevoerd !! Dus komt U [RETURN] tegen dan moet 
U op de return-toets drukken. Het programma gra- 
phics.library en dos.library moeten ook op de diskette 
staan. (AmigaBasic). 


CLEAR ,30000[RETURN] 

DECLARE FUNCTION Move& LIBRARY[RETURN] 
DECLARE FUNCTION LockS LIBRARY[RETURN] 

' R.Sloot / PRG: Gas en 
Electriciteitskaart 1988 en 
toekomst[RETURN] 

' (ZUINING STOKEN / ZUINING AAN)[RETURN] 

' Opmerkingen: graphics.library en 
dos.libraryDEFINT e-z[RETURN] 

DIM SHARED 

cursorbeeld%(18),Yu(30),Xspr(13),Xlen(13),d& 

(6,30) ,Px(14) ,Clx(ll) ,Cly(ll) ,Cbx(ll) ,Cby(ll 

)[RETURN] ^ 

















LIBRARY "graphics.library" [RETURN] 

LIBRARY 

"dos.library"OPNData$="09162330==06132027==0 
4111825==0108152229==05121926==05121926==020 
9162330== "[RETURN] 

0PNMaanden$="0kt.Nov.Dec.Jan.Feb.Mrt.Apr." 
[RETURN] 

ELECstr$="+2+3+4+4+5+5+6+6+6+6+6+6+6+6+6+5+5 
+5+4+3+2+1+1+0-1-2-2-3-4"[RETURN] 

FOR p=0 TO 7:READ 

Clx(p) , Cly(p),Cbx(p),Cby(p) :NEXT[RETURN] 

FOR p=0 TO 29:READ 

Yu(p):d&(5,p)=-l;d&(6,p)=-l:NEXT[RETURN] 

FOR p=0 TO 11:READ 

Px(p):NEXT:top(l)=29:tt$="123456789"+CHR$(8) 
[RETURN] 

Jaar=1988:scr=l:SELEC=0:AccGpt$=CHR$(28)+CHR 
$(29)+CHR$(30)+CHR$(31)[RETURN] 
ma(0)=31:ma(l)=30:ma(2)=31:ma(3)=31:ma(4)=28 
:ma(5)=(31):ma(6)=30' INIT (lx)[RETURN] 

GOSUB Zetwaarden[RETURN] 

Initialiseer[RETURN] 

GOSUB Drawl' EVENTS[RETURN] 

MOUSE ON:ON MOUSE GOSUB 
BehandelMuis[RETURN] 

MENU ON:ON MENU GOSUB 

BehandelMenu'HOOFDBESTURING / VANAF HIER 
HOOFDROUTINES[RETURN] 

Lin=229:k=0:1=0:KOL=0:GOSUB BoxZ[RETURN] 
ReNORMGadget:[RETURN] 

HoofdGadget=0:Remem=0[RETURN] 

Keuzeloop:[RETURN] 

GOSUB MuisEnToets[RETURN] 

IF click=0 THEN[RETURN] 

IF INSTR(Accept$,key$)=0 THEN[RETURN] 

IF INSTR(tt$,key$)<>0 THEN[RETURN] 

GOSUB CheckEntry[RETURN] 

IF RET=0 THEN BEEP:GOTO Keuzeloop[RETURN] 
GOSUB BoxZ:COLOR 1,0:pch=Xspr(KOL)[RETURN] 
Remem=l:Invoer 5,pch,Lin+1,1,0:in=0[RETURN] 

IF 1=0 THEN[RETURN] 

IF d&(k, 1+1)00 AND C&>d&(k,l+1) THEN 
GOSUB EntryError .-GOTO Keuzeloop [RETURN] 
ELSEIF lOO AND kOl THEN [RETURN] 

IF C&<d&(k,l-1) THEN GOSUB EntryError:GOTO 
Keuzeloop[RETURN] 

IF d&(k, 1+1)00 AND C&>d&(k,l+1) THEN 
GOSUB EntryError:GOTO Keuzeloop[RETURN] 

ELSE[RETURN] 
m=l[RETURN] 

END IF[RETURN] 
d&(k, 1-m)=C&[RETURN] 


IF v2=l THEN d&(5,l)=VAL(vr2$):Plaats 
pl+t,Yu(l+1)+1,MID$(vr2$,2)[RETURN] 

END IF[RETURN] 

GOSUB BoxZ[RETURN] 

END IF[RETURN] 

GOTO Keuzeloop[RETURN] 

END IF[RETURN] 
key=ASC(key$)[RETURN] 

IF key=30 AND KOL<3 THEN [RETURN] 

IF K0L=1 THEN[RETURN] 

IF Lin>185 THEN Keuzeloop[RETURN] 

IF l=top(0) THEN l=top(l) ELSE 
1=1+13[RETURN] 

side=l:IF SELEC=0 THEN k=-l ELSE 
k=l[RETURN] 

END IF[RETURN] 

GOSUB BoxZ:k=k+l:KOL=KOL+l:Lin=Yu(l):GOSUB 
BoxZ[RETURN] 

ELSEIF key=31 AND KOL>0 THEN[RETURN] 

IF K0L=2 THEN[RETURN] 

side=0:IF SELEC=0 THEN k=2 ELSE k=4[RETURN] 
IF l=top(l) THEN l=top(0) ELSE 
1=1-13[RETURN] 

END IF [RETURN] 

GOSUB BoxZ:k=k-l:KOL=KOL-l:Lin=Yu(1):GOSUB 
BoxZ[RETURN] 

ELSEIF key=28 AND Lin>Yu(top(side)) 

THEN[RETURN] 

GOSUB BoxZ:1=1+1:Lin=Yu(1):GOSUB 
BoxZ[RETURN] 

ELSEIF key=29 AND Lin<225 THEN[RETURN] 

IF K0L>1 THEN IF Lin=>175 THEN 
Keuzeloop[RETURN] 

GOSUB BoxZ:1=1-1:Lin=Yu(1):GOSUB 
BoxZ[RETURN] 

END IF[RETURN] 

END IF[RETURN] 

GOTO KeuzeloopStoppen:[RETURN] 
sure$="Echt stoppen ?":GOSUB 
WeetUdatZekerWindow[RETURN] 

IF JA=1 THEN[RETURN] 
sure$="File nog saven ?":GOSUB 
WeetUdatZekerWindow[RETURN] 

IF JA=1 THEN[RETURN] 

GOSUB OpslaanAls[RETURN] 

END IF[RETURN] 

SYSTEM[RETURN] 

END IF[RETURN] 

RETURN[RETURN] 

[RETURN] 

Grafisch:[RETURN] 

WINDOW 


GOSUB WerkBij:COLOR 1,2:Plaats 
532,204,STR$(cn&(0))+" "[RETURN] 

Plaats 532,216,STR$(cn&(1))+" ":COLOR 

1,O:t=0[RETURN] 

IF SELEC=0 AND k=0 THEN[RETURN] 

Plaats 140+KOL*160,1+Lin+C%,vrl$[RETURN] 
IF l=top(0) THEN t%=320[RETURN] 

IF v2=l THEN Plaats 

t%+140+KOL*160,Yu(1+1)+1,vr2$[RETURN] 
ELSEIF SELEC=1 AND (k=2 OR k=3) 

THEN[RETURN] 

IF KOL=0 OR K0L=1 THEN pl=218:p2=167 ELSE 
pl=537:p2=488[RETURN] 

IF 1>0 THEN d&(5,1-1) =VAL(vrl$)[RETURN] 
Plaats pl,1+Lin+C%,MID$(vrl$,2)[RETURN] 
tp$=" ":MID$(tp$,1)=STR$(x&)[RETURN] 

Plaats p2,Yu (1) +1,MID$(tp$,2)[RETURN] 

IF l=top(0) THEN t=319[RETURN] 


4,"Grafisch",(0,1)-(631,241),22,scr[RETURN] 
MOUSE OFF[RETURN] 

re&=RP&:RP&=WIND0W(8):pa=5:pb=7[RETURN] 
mv(O)=1:mv(1)=6:mv(2)=4:mv(3)=5[RETURN] 
Gadget 10,4,30,12,"Gas",3,1[RETURN] 

Gadget 50,4,38,12,"Elec",3,1[RETURN] 

Gadget 98,4,70,12,"Breek Af", 3,1[RETURN] 
COLOR l,0:Plaats 190,6,"Even geduld 
A.U.B."[RETURN] 

'TEL AANTAL en SLA OP[RETURN] 

FOR p=0 TO 3[RETURN] 

IF p=0 OR p=2 THEN w=0 ELSE w=-l[RETURN] 
TL=mv(p):GOSUB Count:Ta(p)=n[RETURN] 

NEXT'CONTROLE OF ALLE GEGEVENS INGEVULD 
ZIJN[RETURN] 

IF Ta(l)=0 OR Ta(0)=0 THEN GAS=0 ELSE 
GAS=1[RETURN] 

IF Ta(3)=0 OR Ta(2)=0 THEN ELEC=0 ELSE 
ELEC=1[RETURN] 
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IF GAS=0 AND ELEC=0 THEN GraphEinde[RETURN] NEXT out, i[RETURN] 
[RETURN] CLOSE 1[RETURN] 

'ZOEK MAXIMA[RETURN] RP&=re&[RETURN] 

FOR p=0 TO 3[RETURN] WINDOW CLOSE 4[RETURN] 

fast=mv(p)[RETURN] RETURN 

vMax(p)=d&(fast,0)[RETURN] 


FOR b=l TO Ta(p)-1[RETURN] 

IF d&(fast,b)>vMax(p) THEN 
vMax(p)=d&(fast,b)[RETURN] 

NEXT[RETURN] 

NEXT' GRAPH MAXIMA[RETURN] 

IF vMax(O) > vMax(l) THEN GRMAXl=vMax(0) 
ELSE GRMAXl=vMax(1)[RETURN] 

IF vMax(2) > vMax(3) THEN GRMAX2=vMax(2) 
ELSE GRMAX2=vMax (3) IF GASOO 
THEN[RETURN] 

Yscl!=200/GRMAXl[RETURN] 

Xscl!=580/Ta(1)[RETURN] 

END IF[RETURN] 

IF ELECOO THEN [RETURN] 

Ysc2!=200/GRMAX2[RETURN] 

Xsc2!=580/Ta(3)[RETURN] 

END IFCOLOR 1,0:Plaats 
190,6,SPACE$(18)[RETURN] 

MOUSE ON[RETURN] 

ErrInChoice;[RETURN] 

GOSUB MuisEnToets[RETURN] 

IF click=6 THEN[RETURN] 

IF GAS=0 THEN BEEP:BEEP:GOTO 
ErrInChoice[RETURN] 

Xs!=Xscl!:Ys!=Yscl!:MAX=GRMAX1:GOSUB 

DrawAxes[RETURN] 

p=l:GOSUB DrawBars[RETURN] 

ELSEIF click=7 THEN[RETURN] 

IF ELEC=0 THEN BEEP;BEEP:GOTO 
ErrInChoice[RETURN] 

Xs!=Xsc2!:Ys!=Ysc2!:MAX=GRMAX2:GOSUB 

DrawAxes[RETURN] 

p=3:GOSUB DrawBars[RETURN] 

ELSE[RETURN] 

GraphEinde:[RETURN] 

MOUSE ON[RETURN] 

WINDOW CLOSE 4[RETURN] 

RP&=re&[RETURN] 

RETURN[RETURN] 

END IF[RETURN] 

GOTO ErrInChoiceOpslaanAls: [RETURN] 
WINDOW 4,"Een Datafile opslaan 
onder.. .(60,40)-(460,100),22, scr[RETURN] 
re&=RP&:RP&=WINDOW(8)[RETURN] 

ReOp:[RETURN] 

Laden=0:GOSUB lOGADinput[RETURN] 
file$=in$:IF EX=1 THEN RP&=re&;WINDOW 
CLOSE 4:RETURN[RETURN] 

IF AGem=0 THEN[RETURN] 

COLOR l,0:Plaats 82,4,"JAARGEBRUIK 
INVULLEN ! Druk (muis)Toets"[RETURN] 

GOTO ReOp [r:eturn] 

END IF[RETURN] 

COLOR l,0:Plaats 90,4,"Saving"[RETURN] 

OPEN file$+".G&E" FOR OUTPUT AS#1[RETURN] 

I PRINT #1,"G&E.vl . Ifile"[RETURN] 

PRINT #1, OPNData$[RETURN] 

PRINT #l,ELECstr$[RETURN] 

PRINT #1,Jaar[RETURN] 

I PRINT #l,AGem[RETURN] 

I FOR i=0 TO 6[RETURN] 
e&=Move&(RP&,145,11-i)[RETURN] 

I FOR out=0 TO 29[RETURN] 
j PRINT #1,d&(i,out)[RETURN] 

: PRINT ".";[RETURN] 


WisAlles:[RETURN] 
sure$="Zeker Weten !?"[RETURN] 

GOSUB WeetUdatZekerWindow[RETURN] 

IF JA=1 THEN[RETURN] 

AGem=0:GOSUB ClearGr[RETURN] 

GOSUB Draw3:GOSUB BoxZ[RETURN] 

FOR p=0 TO 6[RETURN] 

IF p=5 OR p=6 THEN x=-l ELSE x=0[RETURN] 

FOR pl=0 TO 29[RETURN] 
d& (p,pl)=x[RETURN] 

NEXT[RETURN] 

NEXT[RETURN] 

IF SELEC=1 THEN[RETURN] 
tt2: GOSUB JaarkWh[RETURN] 

IF C&=0 THEN tt2[RETURN] 

GOSUB ElECcalc:GOSUB ElecDisplay[RETURN] 

END IF[RETURN] 

END IF[RETURN] 

RETURN[RETURN] 

Laden: [RETURN] 

WINDOW 4,"Een Datafile 

laden",(60,40)-(460,100),22,scr[RETURN] 

lOERROR:[RETURN] 

re&=RP&:RP&=WINDOW(8)[RETURN] 

EX=0:Laden=l:GOSUB lOGADinput[RETURN] 
file$=in$:IF EX=1 THEN RP&=re&:WINDOW 
CLOSE 4:RETURN[RETURN] 

OPEN file$+".G&E" FOR INPUT AS#1[RETURN] 

COLOR l,0:Plaats 90,4,"Loading"INPUT 
#l,ident$:IF ident$<>"G&E.vl.Ifile" THEN 
STOP[RETURN] 

INPUT #1,OPNData$[RETURN] 

INPUT #1,ELECstr$[RETURN] 

INPUT #1,Jaar[RETURN] 

INPUT #l,AGem[RETURN] 

FOR i=0 TO 6[RETURN] 
e&=Move&(RP&,152,11-i)[RETURN] 

FOR in=0 TO 29[RETURN] 

INPUT #l,d&(i,in)[RETURN] 

PRINT ".";[RETURN] 

NEXT in,iCLOSE 1[RETURN] 

RP&=re&:d&(1,29)=0[RETURN] 

WINDOW CLOSE 4:1=0:Lin=Yu(0):KOL=0[RETURN] 
GOSUB ClearGr:GOSUB Sprongl:GOSUB 
Draw3[RETURN] 

GOSUB Display:GOSUB BoxZ:GOSUB ElECcalc:IF 
SELEC=1THEN ElecDisplay[RETURN] 

RETURN 

Resultaat:[RETURN] 

WINDOW 6,,(60,0)-(330,242),16,scr[RETURN] 
rel&=RP&:RP&=WIND0W(8)[RETURN] 

LINE (0,0)-(400,15),2,bf:LINE 
(0,16)- (400,16),1 [RETURN] 

COLOR l,2:Plaats 20,4,"GasTabel":Plaats 
97,4,"Datum"[RETURN] 

Plaats 160,4,"ElecTabel":COLOR 1,0[RETURN] 
sure$="Naar Printer?";JA=0:WINDOW | 

5,,(100,40)-(380,45),0,scr[RETURN] ! 

GOSUB I 

Springin;t=l:tl=l:d2$="0kt.":fout$="(**)"•e& 1 
=Move&(RP&,2,16)[RETURN] ' 1 

IF JA=1 THEN[RETURN] | 

OPEN "PAR:" FOR OUTPUT AS#1[RETURN] | 








PRINT #l,"GasTabel - Datum - 
ElecTabel";[RETURN] 

PRINT 

#1,CHR$(27)"D";CHR$(3)CHR$(11)CHR$(22)CHR$(O 
)[RETURN] 

END IF[RETURN] 

FOR p=0 TO 28[RETURN] 

PRINT[RETURN] 

IF d&(6,p)=-l THEN[RETURN] 

LOCATE ,5:PRINT fout$;[RETURN] 

IF JA=1 THEN PRINT #1,CHR$(9)fout$;[RETURN] 
ELSE[RETURN] 

LOCATE ,5:PRINT (d&(1,p)-d&(6,p));[RETURN] 

IF JA=1 THEN PRINT 

#1,CHR$(9);d&(l,p)-d&(6,p);[RETURN] 

END IF[RETURN] 

Relo:[RETURN] 

dl$=MID$(OPNData$,l+tl*2,2):IF dl$="==" 

THEN 

d2$=MID$(OPNMaanden$, H-t*4,4) ;t=t+l:tl=tl+l: 
GOTO Relo[RETURN] 

LOCATE ,13:PRINT d2$dl$tl=tl+l[RETURN] 

IF JA=1 THEN PRINT 
#1,CHR$(9)d2$dl$;[RETURN] 

IF d&(5,p)=-l THEN[RETURN] 

LOCATE ,22;PRINT fout$;[RETURN] 

IF JA=1 THEN PRINT #1,CHR$(9)fout$[RETURN] 
ELSE[RETURN] 

LOCATE ,22:PRINT (d&(4,p)-d&(5,p));[RETURN] 

IF JA=1 THEN PRINT 

#1,CHR$(9);d&(4,p)-dS(5,p)[RETURN] 

END IF[RETURN] 

NEXT[RETURN] 

IF JA=1 THEN CLOSE #1[RETURN] 

GOSUB Wacht:WINDOW CLOSE 6:RP£=rel&[RETURN] 
RETURN 

Init:[RETURN] 

WINDOW 4,"InitWaarden 

invullen", (60,40)-(460,150),22,scr[RETURN] 
HoofdGadget=2:re&=RP&:RP&=WlNDOW(8):bk=l[RET 
URN] 

Gadget 320,2,68,12,"Breek Af",2,1:COLOR 
1,0[RETURN] 

Plaats 10,10,"Startjaar ("+STR$(Jaar)+") 

; "[RETURN] 

Plaats 10,20,"StartDatum ZONDAG! in 
Oktober ("+LEFT$(OPNData$,2)+") : "[RETURN] 

Plaats 10,32,"De variabele 
verlichtingsfactor 
(nrl=startdatum)"[RETURN] 
ko=0:li=50;FOR p=0 TO 28[RETURN] 

COLOR 1,3:Plaats 

10+ko*60,li,STR$(p+1)[RETURN] 

COLOR 1,0:Plaats 

37+ko*60,li,MID$(ELECstr$,l+p*2,2)[RETURN] 
li=li+10:IF (p+1) MOD 5=0 THEN 
li=50:ko=ko+l[RETURN] 

NEXT [RETURN] 

AMouse:[RETURN] 
cl=0[RETURN] 

WHILE cl=0 'wacht op mouseclick[RETURN] 

WEND[RETURN] 

IF cl=32 THEN RP&=re&;WINDOW CLOSE 
4:1=0:GOSUB BoxZ:Lin=yu(0):GOSUB 
BoxZ:RETURN[RETURN] 

IF cl=l THEN[RETURN] 

InvA:[RETURN] 

Invoer 4,190,10,1,0[RETURN] 

IF C&<1988 THEN BEEP:GOTO InvA[RETURN] 
bJaar=C&[RETURN] 


Plaats 10,10,"Startjaar ("+STR$(bJaar)+") 

; "[RETURN] 

ELSEIF cl=2 THEN[RETURN] 

InvB:[RETURN] 

Invoer 2,300,20,1,0[RETURN] 

IF C&<1 OR C&>31 THEN BEEP:GOTO 
InvB[RETURN] 

IF C&<10 THEN i$="0"+MID$(STR$(C&),2,1) 

ELSE i$=MID$(STR$(C&),2,2) [RETURN] 

Plaats 10,20,"StartDatum ZONDAG! in 
Oktober ("+i$+") : "[RETURN] 

bdat=C&:week=0:mn=0:fout=0[RETURN] 

IF bJaar MOD 4=0 THEN m(4)=29 ELSE 
m(4)=28[RETURN] 
copy$=OPNData$[RETURN] 

FOR p=0 TO 35[RETURN] 
wl=bdat+week*7[RETURN] 

IF wl>ma(mn) THEN[RETURN] 

wl=(wl-ma(mn));bdat=wl:MID$(copy$,l+2*p,2)=" 
==":p=p+l[RETURN] 

IF week<4 THEN[RETURN] 
HoofdGadget=l:sure$="FOUT VAN U IN 
DATUM!"[RETURN] 

GOSUB WeetUdatZekerWindow[RETURN] 
fout=l:p=40:HoofdGadget=2:l=bk[RETURN] 

END IF[RETURN] 
week=0:mn=mn+l[RETURN] 

END IF[RETURN] 

IF wKlO THEN i$="0"+MID$ (STR$ (wl) , 2, 1) 

ELSE i$=MID$(STR$(wl),2,2)[RETURN] 

MID$(copy$,l+2*p,2)=i$[RETURN] 
week=week+l[RETURN] 

NEXT[RETURN] 

IF fout=0 THEN[RETURN] 

OPNData$=copy$:Jaar=bJaar:dat=bdat[RETURN] 
RP&=re&:re&=WINDOW(8):WINDOW OUTPUT 
1;GOSUB ClearGr:GOSUB Sprongl[RETURN] 

IF SELEC=1 THEN GOSUB ElecDisplay[RETURN] 
GOSUB Draw3:GOSUB Display:GOSUB 
BoxZ[RETURN] 

WINDOW OUTPUT 

4:re&=RP&:RP&=WINDOW(8)[RETURN] 

END IF [RETURN] 

ELSE[RETURN] 

InvC:[RETURN] 

ko=( (cl-(li/10))/5)+1[RETURN] 

Invoer 2,37+ko*60,li-10,1,0[RETURN] 

IF C&=>0 THEN i$=" + "+MID$(STR$(C&) , 2, 1) 

ELSE i$=STR$(C&)[RETURN] 

Plaats 37+ko*60,li-10,i$[RETURN] 

MID$(ELECstr$,1+(ol-3)*2)=i$[RETURN] 

END IF[RETURN] 

GOTO AMouseVerwissel;[RETURN] 

IF SELEC=1 THEN[RETURN] 

SELEC=0:GOSUB EenTotaal[RETURN] 

ELSE[RETURN] 

SELEC=1:GOSUB TweeTotaal[RETURN] 

END IF [RETURN] 

GOSUB Zetwaarden[RETURN] 

COLOR 0,1:GOSUB ClearGr:GOSUB Draw2;GOSUB 
Draw3[RETURN] 

GOSUB Display[RETURN] 

IF SELEC=1 THEN[RETURN] 

IF AGem=0 THEN[RETURN] 
tt: GOSUB JaarkWh[RETURN] 

IF C&=0 THEN tt[RETURN] 

GOSUB ElECcalc:GOSUB ElecDisplay[RETURN] 
ELSE[RETURN] 

GOSUB ElecDisplay[RETURN] 

END IF[RETURN] 

END IF[RETURN] 
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Lin=229:KOL=0;l=0:IF SELEC=1 THEN k=2 ELSE 
k=0[RETURN] 

COLOR 1,2.-Plaats 532,204,STR$(cn&(0))+" 

"[RETURN] 

Plaats 532,216,STR$(cn&(1))+" "[RETURN] 
GOSUB BoxZ[RETURN] 

RETURN 

Printen:[RETURN] 

sure$="Is Printer klaar ?"[RETURN] 

GOSUB WeetUdatZekerWindow[RETURN] 

IF JA=1 THEN[RETURN] 

OPEN "PAR:" FOR OUTPUT AS#2[RETURN] 

PRINT #2, "GASTABEL:"+CHR$(13)[RETURN] 
PRINT #2, "OPNAME DATA GASMETERSTAND 
WEEKVERBRUIK WEEKSTREEFVERBRUIK"[RETURN] 
n=0:z=0[RETURN] 

FOR i=0 TO 6[RETURN] 

FOR ll=n TO n+5[RETURN] 

dat$=MID$(OPNData$,1+11*2,2)[RETURN] 

IF dat$<>"==" THEN[RETURN] 

PRINT #2, MID$(OPNMaanden$,i*4+l,4)" 

"dat$,[RETURN] 

IF d&(0,z)<>0 THEN PRINT #2,d&(0,z),""; 

ELSE PRINT#2, " " , " " ; [RETURN] 

IF d&(6,z)<>-l THEN PRINT #2," 

"d&(6,z),""; ELSE PRINT #2[RETURN] 

IF d&(l,z)<>0 THEN PRINT #2," "d&(l,z) 

ELSE PRINT #2,""[RETURN] 
z=z+l[RETURN] 

ELSE[RETURN] 

11=50[RETURN] 

END IF[RETURN] 
n=n+l[RETURN] 

NEXT[RETURN] 

PRINT #2,CHR$(13)[RETURN] 

NEXT[RETURN] 

GOSUB EenTotaal[RETURN] 

PRINT #2,"TOTAAL GASVERBRUIK = 

"cn&(0)[RETURN] 

PRINT #2,"TOTAAL STREEFGEBRUIK = 

"cns(1)[RETURN] 

ELEC:[RETURN] 

PRINT #2,CHR$(12) 'FORM FEED (NEXT 
PAGE)[RETURN] 

PRINT 

#2,CHR$(13)"ELECTRICITEITSTABEL:"+CHR$(13)[R 
ETURN] 

PRINT #2, "OPNAMEDATA TELWERKl TELWERK2 
TOTAAL WEEKVERBRUIK 
WEEKSTREEFGEBRUIK"[RETURN] 

PRINT 

#2,CHR$(27)"D";CHR$(11)CHR$(21)CHR$(32)CHR$( 
41)CHR$(57)CHR$(0); 'HORIZONTAL TAB 
SETTING[RETURN] 
n=0:z=0[RETURN] 

FOR i=0 TO 6[RETURN] 

FOR ll=n TO n+5[RETURN] 

dat$=MID$(OPNData$,1+11*2,2)[RETURN] 

IF dat$<>"==" THEN[RETURN] 

PRINT #2, MID$(OPNMaanden$,i*4+l,4)" 
"dat$;CHR$(9);[RETURN] 

IF d&(2,z)<>0 THEN PRINT 
#2,d&(2,z)CHR$(9); ELSE PRINT 
#2,CHR$(9);[RETURN] 

IF d&(3,z)<>0 THEN PRINT 
#2, d&(3,z)CHR$(9); ELSE PRINT 
#2,CHR$(9);[RETURN] 

IF d&(2,z)<>0 OR d&(3,z)<>0 THEN PRINT 
#2, d&(2, z)+d&(3,z)CHR$(9); ELSE PRINT 
#2,CHR$(9);[RETURN] 


IF d&(5,z)<>-l THEN PRINT 
#2,d&(5,z)CHR$(9); ELSE PRINT 
#2,CHR$(9);[RETURN] 

IF d&(4,z)<>0 THEN PRINT #2,d&(4,z) ELSE 
PRINT #2,""[RETURN] 
z=z+l[RETURN] 

ELSE[RETURN] 

11=50[RETURN] 

END IF[RETURN] 
n=n+l[RETURN] 

NEXT[RETURN] 

PRINT #2, CHR$(13)[RETURN] 

NEXT[RETURN] 

GOSUB TweeTotaal[RETURN] 

PRINT #2, "TOTAAL ELEC.VERBRUIK = 

"cn&(0)[RETURN] 

PRINT #2, "TOTAAL STREEFGEBRUIK = 

"cn&(1)[RETURN] 

CLOSE 2[RETURN] 

END IF[RETURN] 

RETURN[RETURN] 

'=======ONDER-ROUTINES[RETURN] 

ClearGr:[RETURN] 

COLOR 0[RETURN] 

AREA (66,26):AREA STEP(248,0):AREA 
STEP (0,215) :AREA STEP (-248,0) [RETURN] 

AREA STEP(0,-189):AREAFILL:AREA 
(380,26) :AREA STEP (250,0) :AREA 
STEP(0,160)[RETURN] 

AREA STEP(-250,0):AREA 
STEP (0,-160) :AREAFILL[RETURN] 

RETURN 

Zetwaarden:[RETURN] 

IF SELEC=0 THEN[RETURN] 

Xspr(0)=68:Xlen(0)=66:Xspr(1)=198:Xlen(1)=11 
4[RETURN] 

Xspr(2)=383:Xlen(2)=68:Xspr(3)=515:Xlen(3)=1 
15[RETURN] 

ELSE[RETURN] 

Xspr(0)=68:Xlen(0)=44 

:Xspr(1)=119:Xlen(1)=42[RETURN] 

Xspr(2)=383:Xlen(2)=48 

:Xspr(3)=438:Xlen(3)=43[RETURN] 

END IF[RETURN] 

RETURN 

BehandelMuis:[RETURN] 

IF MOUSE(0)=0 THEN BehandelMuis[RETURN] 
click=0:kx=MOUSE(3):ky=MOUSE(4)[RETURN] 

IF (HoofdGadget=0 AND ky<15) OR 
HoofdGadget=l THEN[RETURN] 

GOSUB BehandelGadgets[RETURN] 

ELSE[RETURN] 

IF ky<29 THEN[RETURN] 

IF (kx=>320 AND kx<=368) THEN[RETURN] 

IF (ky=>2 AND ky<=12) THEN cl=32[RETURN] 

END IF[RETURN] 

IF(kx=>10 AND kx<=320) THEN[RETURN] 

IF (ky=>10 AND ky<=18) THEN[RETURN] 

Cl=l [RETURN] 

ELSEIF (ky=>20 AND ky<=28) THEN[RETURN] 

Cl=2 [RETURN] 

END IF[RETURN] 

END IF[RETURN] 

ELSE[RETURN] 
ko=0:li=50[RETURN] 

FOR p=0 TO 28[RETURN] 

IF (kx=>10+ko*60 AND kx<=50+ko*60) 

THEN[RETURN] 
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IF (ky=>li AND ky<=li+9) THEN 

COLOR 1,2[RETURN] 

cl=ko*5+(li/10)-2;p=30[RETURN] 

LINE (71,19)-STEP(318,10),2,bf[RETURN] 

END IP[RETURN] 

Plaats 74,20,"*":Invoer 

li=li+10;IF (p+1) MOD 5=0 THEN 

38,84,20,0,0[RETURN] 

li=50;ko=ko+l[RETURN] 

IF in$="" THEN GADIOcontrol[RETURN] 

NEXT[RETURN] 

CALL CheckFile (in$,er&)[RETURN] 

END IF[RETURN] 

IF er&=0 THEN[RETURN] 

END IF[RETURN] 

COLOR 1,0:Plaats 90,4,"Dir bestaat niet! 

RETURN 

DRUK (MUIS)TOETS"[RETURN] 

GOSUB Wacht:LINE 

BehandelGadgets:[RETURN] 

(90,4)-(450,13),0,bf[RETURN] 

FOR p=pa TO pb[RETURN] 

GOTO GADIOcontrol[RETURN] 

IF kx=>Clx(p) AND kx<=Cbx(p) THEN[RETURN] 

END IF[RETURN] 

IF ky=>Cly(p) AND ky<=Cby(p) THEN 

WINDOW 

click=p+l:p=pb+l[RETURN] 

3,"DIRECTORY",(365,30)-(625,199),0,scr[RETUR 

END IF[RETURN] 

N] 

NEXT[RETURN] 

FILES in$[RETURN] 

RETURN[RETURN] 

PRINT "Druk op een (Muis/)toets"[RETURN] 

[RETURN] 

GOSUB Wacht:WINDOW CLOSE 3[RETURN] 

CheckEntry:[RETURN] 

ELSEIF click=3 OR key=131 THEN[RETURN] 

RET=1[RETURN] 

COLOR 1,2[RETURN] 

IF k=l THEN[RETURN] 

LINE (51,35)-STEP(338,10),2,bf[RETURN] 

IF 1=0 THEN RET=0:RETURN[RETURN] 

Plaats 54,36,"*":Invoer 

IF 1>1 THEN[RETURN] 

30, 64,36, 0,0 [RETURN] 

IF d&(k,l-2)=0 THEN RET=0:RETURN[RETURN] 

EX=0[RETURN] 

END IF[RETURN] 

IF Laden=l THEN[RETURN] 

RETURN[RETURN] 

COLOR 1,0:CALL 

END IF[RETURN] 

CheckFile(in$+".G&E",er&)[RETURN] 

IF 1>0 THEN [RETURN] 

IF er&=0 THEN[RETURN] 

IF d&(k,l-l)=0 THEN RET=0[RETURN] 

Plaats 90,4,"File bestaat niet! DRUK 

END IF [RETURN] 

(MUIS)TOETS"[RETURN] 

RETURN[RETURN] 

GOSUB Wacht[RETURN] 

[RETURN] 

LINE (90,4)-(450,13),0,bf[RETURN] 

JaarkWh:[RETURN] 

ELSE[RETURN] 

WINDOW 5,,(80,40)-(540,45),0,scr[RETURN] 

RETURN[RETURN] 

re&=RP&:RP&=WINDOW(8)[RETURN] 

END IF[RETURN] 

Plaats 2,3,"Wat is uw Jaarverbruik (Zie 

ELSE[RETURN] 

AFREKENING vorig jaar) ?:"[RETURN] 

RETURN[RETURN] 

COLOR 1,2:Invoer 5,410,3,1,0[RETURN] 

END IF[RETURN] 

IF C&=0 THEN BEEP; WINDOW CLOSE 

END IF[RETURN] 

5:RETURN[RETURN] 

GOTO GADIOcontrolToets:[RETURN] 

AGem=C&/50:RPS=re&:GOSUB ElECcalc[RETURN] 

key$=""[RETURN] 

WINDOW CLOSE 5[RETURN] 

WHILE key$=""[RETURN] 

IF SELEC=1 THEN GOSUB ElecDisplay[RETURN] 

key$=INKEY$[RETURN] 

RETURN 

WEND[RETURN] 

key$=UCASE$(key$)[RETURN] 

WeetUdatZekerWindow:[RETURN] 

JA=0:WINDOW 

RETURN 

5, , (160, 40) -(440,45) , 0, scr[RETURN] 

MuisEnToets:[RETURN] 

Springin:[RETURN] 

key=0:click=0:key$=""[RETURN] 

re2&=RP&:RP&=WINDOW(8):Plaats 

WHILE (key$="" AND click=0)[RETURN] 

2,3,sure$[RETURN] 

key$=INKEY$[RETURN] 

Gadget 160,2,48,10,"F1>JA",4,0[RETURN] 

WEND[RETURN] 

Gadget 215,2,56,10,"F2>NEE",4,0[RETURN] 

IF olick=0 THEN key=ASC(key$)[RETURN] 

pa=3:pb=4:GOSUB MuisEnToets[RETURN] 

IF click=4 OR key=129 THEN JA=1[RETURN] 

RETURN 

RP&=re2&;WINDOW CLOSE 5[RETURN] 

Wacht:[RETURN] 

MOUSE ON:RETURN[RETURN] 

MOUSE OFF:key$=INKEY$:nop=MOUSE(0)[RETURN] 

[RETURN] 

WHILE MOUSE(0)=0 AND INKEY$=""[RETURN] 

lOGADinput:[RETURN] 

WEND[RETURN] 

Gadget 5,2,68,12,"Breek Af",2,1[RETURN] 

MOUSE ON:RETURNBehandelMenu:[RETURN] 

Gadget 70,18,320,12,"",0,0[RETURN] 

Remein=0 : Hoof dGadget=l: inx=MENU (0) : my=MENU (1) [ 

Gadget 50,34,340,12,"",0,0[RETURN] 

RETURN] 

COLOR 1,0:Plaats 4,19,"Zie DIR:"[RETURN] 

IF mx=l THEN[RETURN] 

Plaats 4,35,"FILE:"[RETURN] 

ON my GOSUB 

pa=0:pb=2[RETURN] 

Laden,OpslaanAls,Printen,Stoppen[RETURN] 

GADIOcontrol:[RETURN] 

ELSEIF inx=2 THEN [RETURN] 

GOSUB MuisEnToets[RETURN] 

ON my GOSUB j 

IF click=l OR key=129 THEN[RETURN] 

Verwissel,JaarkWh,WisAlles,Init,Resultaat, Gr 

WINDOW CLOSE 4:EX=1:RETURN[RETURN] 

afisch[RETURN] 

ELSEIF click=2 OR key=130 THEN[RETURN] 

END IF[RETURN] 
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RETORN 

I 

j Display:[RETDRN] 
j IF SELEC=1 THEN[RETURN] 

I tl=2:t2=3:8t=0:8tp=4[RETURN] 

I GOSUB ALG:pt=167:n=0[RETURN] 

WHILE d6(2,n)<>0 OR dfi(3,n)<>0 AND 
n<=29[RETURN] 

IF n=top(0)+l THEN pt=488[RETURN] 
e6=Move6(RP6,pt,(8+Yu(n))):PRINT 
MID$(STR$(ds(2,n)+dfi(3,n)),2);[RETURN] 
n=n+l[RETURN] 

WEND:n=0:pt=218[RETURN] 

WHIUE d&(5,n)<>-l AND n<=29[RETURN] 

IF n=top(0) THEN pt=537[RETURN] 
eS=MoveS(RPS,pt,(8+Yu(n+l))):PRINT 
MID$ (STR$ (dS (5, n)) , 2) ; [RETURN] 
n=n+l[RETDRN] 

WEND:GOSUB TwaeTotaal[RETDRN] 

ELSE[RETDRN] 

tl=0:t2=0:8t=8:8tp=2[RETDRN] 

GOSUB ALG[RETDRN] 
n=0:pt=140[RETURN] 

WHILE dS(6,n)<>-l AND n<=29[RETDRN] 

IF n=top(0) THEN pt=460[RETDRN] 
eS=MoveS(RPS,pt,(8+Yu(n+l))):PRINT 
STR$(ds(6,n));[RETDRN] 
n=:n+l [RETDRN] 

WEND:n=0:pt=l98[RETURN] 

WHILE ds(l,n)<>0 AND n<29[RETDRN] 

IF n=top(0) THEN pt=515[RETDRN] 
eS=Movefi(RPfi,pt,(8+Yu(n+1))):PRINT 
MID$ (STR$ (ds (1, n) ) , 2) ; [RETDRN] 
n=n+l[RETDRN] 

WEND[RETURN] 

GOSUB EenTotaal[RETDRN] 

END IF[RETDRN] 

COLOR l,2:Plaat8 532,204,STRS(cnS(0))+" 

"[RETDRN] 

Plaata 532,216,STR$(cnS(1))+" "[RETURN] 
RETDRN 

Count:[RETDRN] 
n=0 [RETURN] 

WHILE d6(TL,n)<>w AND n<=29[RETDRN] 
n=n+l[RETDRN] 

WEND[RETDRN] 

RETDRN 

ALG:[RETDRN] 

COLOR 1,0[RETDRN] 
w=0:ptr=8t[RETDRN] 

FOR TL=tl TO t2[RETDRN] 
v=0:GOSaB Count[RETDRN] 

FOR lo=0 TO n-1[RETURN] 

IF lo=top(0)+l THEN ptr=ptr+8tp:v=l[RETDRN] 
eS=MoveS(RP6,Px(ptr),(8+Yu(lo))):PRINT 
MID$(STR$(ds(TL,lo)),2);[RETDRN] 

NEXT[RETURN] 

IF v=l THEN ptr=ptr-8tp[RETDRN] 
ptr=ptr+l[RETURN] 

NEXT[RETDRN] 

RETDRN 

WerkBij:[RETDRN] 

n=0:v2=0:C%=0:cnS (0}=0:cnS(1)=0[RETDRN] 

IF SELEC=0 THEN[RETDRN] 

vrl$=" ":vr2$=" "[RETDRN] 

IF k=0 THEN[RETDRN] 

IF dt (0,1+1)<5>0 THEH[RETDRH] 

IF 1=0 THEN[RETDRN] 


MID$(vrl$,1)=STR$(ds(0,1)-ds(0,0)):C%=-10[RE 
TURN] 

ds (6,0)=VAL(vrl$) [RETDRN] 

ELSE[RETDRN] 

v2=l:MID$(vrl$,1)=STR$(dS(0,1)-dS(0,1-1))[RE 
TURN] 

MID$(vr2$,1)=STR$(dS (0, 1+1)-dS (0, 1))[RETDRN] 

END IF[RETDRN] 

ELSE[RETDRN] 

IF lOO THEN 

MID$(vrl$,1)=STR$(ds(0,1)-ds(0,1-1))[RETDRN] 
END IF[RETDRN] 

IF 1>0 THEN dS(6,1-1)=VAL(vrl$)[RETDRN] 

IF v2=l THEN ds(6,l)=YAL(vr2$)[RETDRN] 

END IF[RETDRN] 

GOSUB EenTotaal[RETDRN] 

ELSE[RETDRN] 
vrl$=" ":vr2$=" 

":cnS (2)=0[RETDRN] 

IF k=2 OR k=3 THEN[RETDRN] 
xlS=dS(2,1+1)+dS(3,1+1)[RETDRN] 
xs=ds(2,l)+dS(3,1)[RETDRN] 

IF 1>0 THEN 

x2S=x6-(ds(2,l-l)+ds(3,1-1))[RETDRN] 

IF xlSOO THEN [RETDRN] 

IF 1=0 THEN[RETDRN] 

MID$(vrl$,1)=STR$(xlS-xS):C%=-10[RETURN] 
ds(5,0)=VAL(vrl$)[RETDRN] 

ELSE[RETDRN] 

v2=l:MID$(vrl$,1)=STR$(x2S)[RETDRN] 

MID$(vr2$,l)=STR$(xlS-xS)[RETDRN] 

END IF[RETDRN] 

ELSE[RETDRN] 

IF lOO THEN MID$ (vrl$, 1) =STR$ (x2S) [RETDRN] i 
END IF[RETDRN] 

IF 1>0 THEN ds(5,1-1)=VAL(vrl$)[RETDRN] 

IF v2=l THEN ds(5,l)=YAL(vr2$)[RETDRN] 

END IF[RETDRN] 

GOSUB TweeTotaal[RETDRN] i 

END IF[RETDRN] 

RETDRN 

EenTotaal:[RETDRN] 

n=0:cnS (0)=0:cnS(1)=0[RETDRN] | 

WHILE dS(6,n)<>-l AND n<=29[RETDRN] 
cnS (0)=cnS(0)+dS(6,n) [RETDRN] 
n=n+l[RETDRN] 

WEND:n=0[RETDRN] 

WHILE ds(l,n)<>0 AND n<=29[RETDRN] 
ons(l)=cn6(l)+ds(l,n):n=n+l[RETDRN] 

WEND[RETDRN] 

RETDRN 

ElecDiaplay:[RETDRN] 

COLOR 1,0:pt=263[RETDRN] 

FOR n=0 TO 28[RETDRN] 

IF n=top(0) THEN pt=581[RETDRN] 
eS=MoveS(RPS,pt,(Yu(n+1)+7)):PRINT 
ds (4,n);[RETDRN] 

NEXT[RETDRN] 

RETDRN 

ElECcalc:[RETDRN] 

FOR n=0 TO 28[RETDRN] 

ds(4,n)=(AGem+VAL(MID$(ELEC8tr$,l+n*2,2)))[R 
ETDRN] '' ^ 

NEXT:ds(4,29)=0[RETDRN] 

RETDRN 












TweeTotaal:[RETURN] 
n=0:enS(0)=0:ent(1)=0[RETURN] 

WHII£ dS(5,n)<>-l AND n<=29[RETURN] 
enfi (0)=cnfi(0)+dfi(5,n)[RETURN] 
n=n+l[RETURN] 

WEND:n=0[RETURN] 

WHILE dS{4,n)<>0 AND n<=29[RETURN] 
enS(l)=cn6(l)+dfi(4,n):n=^+l[RETURN] 

WEND[RETURN] 

RETURN 

EntryError:[RETURN] 

BEER[RETURN] 

GOSUB Herplaats[RETURN] 

GOSUB BoxZ[RETURN] 

RETURN 

Herplaats:[RETURN] 

COLOR 1,0 [RETURN] 

LINE 

(Xspr(KOL),Lin)-STEP(Xlen(KOL),10),0,bf[RETU 
RN] 

IP d6(k,l)<>0 THEN Plaats 

Xspr(KOL),Lin+l,MID$(STR$(dS(k,1)),2)[RETURN 

] 

RETURN[RETURN] 

[RETURN] 

BoxZ:[RETURN] 

AREA (Xspr(KOL),Lin):AREA 

STEP(Xlen(KOL),0):AREA STEP(0,10)[RETURN] 

AREA STEP(-Xlen(KOL),0):AREA 

STEP (0,-10) rAREAFILL 1[RETURN] 

RETURN 

Drawl:[RETURN] 

GOSUB Draw2[RETURN] 

GOSUB Draw3[RETURN] 

Sprongl:[RETURN] 

8trtpo8=2 4 0 : juinp=0: p=0: x=0: nin=0 [RETURN] 

LINE (44,26)-(64,240),0,bf:LINE 
(359,26)-(379,186),0,bf[RETURN] 

FOR j=0 TO 6[RETUIUSI] 

IF j=4 THEN 

jump=315: 8trtpo8=186:x=l:top(0)=nin-l [RETURN] 
COLOR 3[RETURN] 

AREA (2+jun^j,strtpos):AREA STEP(42,0):AREA 
STEP(0,-32)[RETURN] 

AREA STEP(-21,-21):AREA STEP(-21,21):AREA 
STEP(0,32)[RETURN] 

AREAFILL[RETURN] 

COLOR 1,0:sr=8trtpo8-10:0=0[RETURN] 

FOR ll=p TO p+5[RETURN] 

dat$=MID$(OPNData$,l+p*2,2)[RETURN] 

IF dat$="==" THEN 11=50 ELSE Plaat8 
4 7+x*315, 8r-o*10, dat$ : Yu (mn) =8r-o*10-l: nin=™i 
+1[RETURN] 

0=0+1:p=p+l[RETURN] 

NEXT[RETURN] 

IF 0=5 THEN five=10 ELSE five=0[RETURN] 

LINE 

(jun5s+44,strtpo8)-STEP(20,five-52),1,b[RETUR 
N] 

COLOR 1,3:Plaats 

9+juinp, 8trtpos-9,MID$ (OPNMaemdan$, j*4+l, 4) [R 
ETURN] 

strtpos=strtpos-54[RETURN] 

NEXT[RETURN] 

RETURN 

Draw3:[RETURN] 


COLOR 1,0[RETURN] 

LINE (379,186)-(630,186) [RETURN] 

LINE (315,240)-(315,26)[RETURN] 

IF SELEC=0 THEN[RETURN] 

LINE (13B,26)-(138,242):LINE 

(455.26) -(455,185)[RETURN] 

LINE (194,26)-(194,242):LINE 

(511.26) -(511,185)[RETURN] 

ELSE[RETURN] 

LINE (116,26)-(116,242):LINE 

(164.26) -(164,242) [RETURN] 

LINE (215,26)-(215,242) :LINE 

(261.26) - (261,242)[RETURN] 

LINE (435,26)-(435,185):LINE 

(484.26) -(484,185)[RETURN] 

LINE (534,26)-(534,185):LINE 

(579.26) - (579,185)[RETURN] 

END IF[RETURN] 

COLOR 1,2[RETURN] 

Plaats 343,204,"Totaal verbruik. 

"[RETURN] 

Plaats 343,216,"Totaal StreefGebruik.... 

"[RETURN] 

RETURN 

Draw2:[RETURN] 

COLOR 2[RETURN] 

AREA (0,1):AREA STEP(630,0):AREA 
STEP(0,23):AREA STEP(-630,0)[RETUKU] 

AREA STEP(0,-23):AREAPILL:LINE 
(0,1)- (630,1),1[RETURN] 

AREA (318,189):AREA STEP (312,0) :AEEA 
STEP(0,50):AREA STEP(-312,0)[RETURN] 

AREA STEP(0,-50):AREAFILL[RETURN] 

LINE (318,189)-(630,240),l,b[RETURN] 

LINE (0,24)-(630,24),1:COLOR 1,2[RETURN] 
POR x=0 TO 1[RETURN] 

IF SELEC=0 THEN[RETURN] 

Plaats 2+X+318, 6,"Opname Gasmtr Week 
WeekStreef"[RETURN] 

Plaats 2+x*318,14,"data stand 

verbr. verbruik"[RETURN] 

ELSE[RETURN] 

Plaats 2+x*318, 6,"Opname Teil Tel2 
Totaal Heek Week"[RETURN] 

Plaats 2+x*318,14,"data werk werk 

1+2 vbr. Str."[RETURN] 

END IF[RETURN] 

NEXT[RETURN] 

RETURN 

DrawAxes:[RETURN] 

COLOR 0[RETURN] 

'CLEAR DRAW AREA[RETURN] 

AREA (1,18):AREA STEP(630,0):AREA 
STEP(0,222)[RETURN] 

AREA STEP(-630,0):AREA 

STEP(0,-222):AREAFILL:COLOR 1,0[RETURN] 

FOR p=0 TO 9[RETURN] 
tx=26+p*20:PSET (50,tx):PSET 
(49,tx)[RETURN] 
efi=Move6(RPS,0,tx)[RETURN] 

PRINT USING "###.#";((10-p)/10)*MAX[RETURN] 
NEXT[RETURN] 

t=l:mn=l:Plaats 51,231,"Okt."[RETURN] 

FOR p!=51! TO 631! STEP Xs![RETURN] 

PSET (p!,227):PSET (p!,228)[RETURN] 
ch$=MID$(OPNData$,l+t*2,2)[RETURN] 

IP ch$="=" THEN xc^l:Plaats 

xc,231,MID$(OPNHaanden$,1+mn* 4,4):mn=mn+l:t 

t+1[RETURN] 
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t=t+l[HETÜRN] 

NEXT[RETÜRN] 

LINE (51,26)-(52,226),,b:LINE 
(51,226)-(pl-Xs!,226)[RETURN] 

RETURN 

DrawBars:[RETÜRN] 

Xj!=0[RETURN] 

FOR i=0 TO Ta(p)-1[RETÜRN] 

Yj!=dS(mv(p),i)*Ys![RETURN] 

Ya!=d6(mv(p-l),i)*Ys![RETURN] 

Bovenop!=Ya!-Yj!;COLOR 2[RETÜRN] 

AREA (51+Xj!,226):AREA STEP(Xs!,0):AREA 
STEP(0,-Yj!)[RETURN] 

AREA STEP(-Xs!,0):AREA 
STEP(0,Y8!)iAREAPILL [RETÜRN] 

LINE 

(51+Xj! ,226)-STEP (Xs! ,-Y j !) ,l,b [RETÜRN] 

IF Bovenop!>0 THEN[RETURN] 

COLOR 3[RETURN] 

AREA (51+Xj!,226-Yj!):AREA 

STEP(Xs!,0):AREA STEP(0,-Bovenop!)[RETURN] 

AREA STEP(-Xs!,0):AREA 

STEP(0,Bovenop!):AREAFILL[RETURN] 

LINE 

(51+Xj ! , 226-Yj !) -STEP (Xs! , -Bovenop!) , 1, b [BET 
URN] 

ELSE[RETURN] 

LINE 

(51+Xj!+(Xa!/2),226-Ya!)-STEP(2,0),1[RETURN] 

END IF[RETURN] 

Xj!=Xj!+Xs![RETURN] 

NEXT[RETURN] 

RETURN 

' ** Gadget Click Posities[RETURN] 

DATA 

5,2,73,14,70,18,390,30,50,34,390,46[RETURN] 
DATA 160,2,208,12,215,2,271,12[RETÜRN] 

DATA 10,4,40,16,50,4,88,16,98,4,168,16'** 
KolY+X posities[RETURN] 

DATA 

229,219,209,199,175,165,156,145,121,111,101, 
91, 67,57, 47[RETURN] 

DATA 

37,27,175,165,155,145,121,111,101,91,67,57,4 
7,37,27[RETURN] 

DATA 

68,119,263,218,383,438,581,488,68,198,383,51 
5' =====SDB' S [RETURN] 

SUB Initialiseer STATIC[RETURN] 

SHARED RP& [RETURN] 

SCREEN 1,640,256,2,2[RETÜRN] 

WINDOW l,"Gas— en Electriciteitsverbruik 
(ACTIE ZUINIG STOKEN, ZUINIG 
AAN!)",(0,1)-(631,242),20,1[RETURN] 

PALETTE 0,0,0,OlPALETTE 1,1,1,1[RETURN] 
PALETTE 2,.47,.27,.47:PALETTE 
3,0,.6,.74[RETORN] 

MENU 1,0,1,"Project" : MENU 
2,0,1,"Opties"[RETURN] 

MENU 1,1,1," Laden.. " : MENU 2,1,1," 
Verwissel "[RETÜRN] 

MENU 1,2,1," Saven.. " : MENU 2,2,1," 
JaarKwh.. " [RETURN] 

MENU 1,3,1," Printen " : MENU 2,3,1," Wis 
Alles "[RETÜRN] 

MEMO 1,4.1," Stoppen " ; MENü 2,4,1," 

Init. "[RETURN] 

MENU 3,0,0,"":MENU 4,0,0,""[RETÜRN] 


MENU 2,4, 1, 


' COMPILED ü DIT PROGRAMMA (AC-BASIC) LAAT 
DAN DE VORIGE REGEL ERUIT![RETURN] 

MENU 2,5,1," Resultaat ": MENU 2,6,1," 
Grafisch. "[RETURN] 

RP6=WINDOW(8)[RETURN] 

END SUBSUB Plaats (x%,y%,sr$) 

STATIC[RETURN] 

SHARED RP&[RETURN] 
eS=MoveS(RP6,x%,y%+7)[RETURN] 

CALL TextS(RP6,SADD(sr$),LEN(sr$))[RETURN] 
END SUBSUB 

Invoer(limiet %,xpo%,ypo%,type%,RET%) 

STATIC[RETÜRN] 

SHARED 

in$,CS,RPS,cursorbeeld%,Remem,key$[RETURN] 
Plaats xpo%,ypo%,SPACE$(limiet%)[RETURN] 
inp$="":csr%=0:LINE (xpo%,ypo%)-STEP 
(1,7),,b:in$=""[RETURN] 

GET 

(xpo%,ypo%)-(xpo%+l,ypo%+7),oursorbeeld%[RET 
URN] 

IF Remem=l THEN[RETURN] 
in$=in$+key$:PUT 

(xpo%,ypo%),cursorbeeld%,XOR[RETURN] 

Plaats xpo%,ypo%,in$:xpo%=xpo%+8[RETURN] 

PUT 

(xpo%,ypo%),oursorbeeld%,XOR:csr%=csr%+l[RET 
URN] 

END IF[RETURN] 

Tsloop:[RETURN] 
key$=""[RETURN] 

WHILE key$=""[RETÜRN] 
key$=INKEY$[RETÜRN] 

WEND[RETÜRN] 

lo$=key$:kay$=DCASE$(key$):key%=A.SC(key$)[RE 
TURN] 

IF key%=13 THEN[RETURN] 

IF LEN(in$)=0 AND RET%=0 THEN BEEP:GOTO 
Tsloop[RETURN] 

PUT 

(xpo%,ypo%),cursorbeeld%,XOR:CS=VAL(in$)[RET 
URN] 

EXIT SUB[RETURN] 

ELSEIF key%=8 THEN [RETURN] 

IF osr%=0 THEN Tsloop[RETURN] 

PUT (xpo%,ypo%), cursorbeeld%,XOR [RETURN] 
buf$=LEFT$(in$,csr%-l):rest$=MID$(in$,csr%+l 
,LEN(in$)):in$=buf$+rest$[RETÜRN] 
xpo%=xpo%-8:Plaats xpo%,ypo%,rest$+" 

"[RETURN] 

PUT (xpo%,ypo%),cur8orbeeld%,XOR[RETURN] 
csr%=csr%-l:GOTO Tsloop[RETURN] 

ELSEIF key%=127 THEN[RETURN] 

IF C8r%=limiet% THEN Tsloop[RETURN] 

PUT (xpo%,ypo%),cur8orbeeld%,XOR [RETÜRN] 
buf$=LEFT$(in$,C8r%):rest$=MID$(in$,c8r%+2, L 
EN(in$)):in$=buf$+re8t$[RETURN] 

Plaats xpo%,ypo%,re8t$+" "[RETURN] 

PUT (xpo%,ypo%),cur8orbeald%,XOR[RETURN] 

GOTO Tsloop[RETURN] 

ELSEIF key%=31 THEN[RETURN] 

IF C8r%=0 THEN[RETURN] 

IF LEN(in$)=0 THEN in8ert=0[RETÜRN] 

GOTO Tsloop[RETURN] 

END IF[RETURN] 
in8ert=l:sort=-8:GOSÜB 
LineSetUnset:[RETURN] 

xpo%=xpo%-8: C8r%=c8r%-1 :GOTO Tsloop[RETURN] 
ELSEIF key%=3ö THEN[RETURN] 

IF C8r%=limiet% OR c8r%=LEN(in$) THEN 
insert=0:GOTO Tsloop[RETURN] 
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insert=l:8ort=8:GOSDB LineSetDnset[RETURN] 
xpo'%=xpo%+8: C8r%=csr%+1: : GOTO 
Tsloop[RETURN] 

END IP[RETURN] 

IF typo%=l THEN IF 
IHSTR("0123456789-'Mo$)=0 THEN 
Tsloop[RETURN] 

IF C8r%=limiet% THEN Tsloop[RETURN] 

PUT (xpo%,ypo%),cur8orbeeld%,XOR[RETURN] 

IF in8art=0 THEN[RETURN] 

in$=in$+lo$:Plaats 

xpo%,ypo%,lo$:xpo%=xpo%+8[RETURN] 

ELSE[RETURN] 

buf$=MID$(in$,C8r%+1,LEN(in$)):in$=IEFT$(in$ 
,C8r%)[RETURN] 
voeg$=lo$+buf$[RETURN] 

IF LEN(in$+voeg$)>limiat% THEN[RETURN] 
in$=in$+buf$[RETURN] 

PUT (xpo%,ypo%),our8orbeeld%,X0R[RETURN] 

GOTO Tsloop[RETURN] 

END IF [RETURN] 
in$=in$+voag$:Plaats 
xpo%,ypo%,voag$[RETURN] 
xpo%=xpo%+8[RETURN] 

END IF[RETURN] 

PUT (xpo%,ypo%), eursorbaald%, XOR[RETURN] 
C8r%=c8r%+1 [RETURN] 


GOTO TaloopLineSetUnset:[RETURN] 

PUT (xpo%,ypo%),eur8orbeeld%,XOR[RETURN] 
PUT 

(xpo%+8ort,ypo%),curaorbeald%,XOR[RETURN] 
RETURN 

END SUBSUB Gadget 

(x%,y%,xb%,yb%,Taxt $,tx%,ty%) 

STATIC[RETURN] 

SHARED RP&[RETURN] 

LINE 

(x%+l,y%+l)-STEP(xb%-2,yb%-2),2,bf[RETURN] 
COLOR 

1,2:aS=MovaS(RPS,x%+l+tx%,y%+8+ty%)[RETURN] 
CALL 

TaxtS (RPS,SADO(Taxt$),LEN(Taxt$)) [RETURN] 
LINE(x%,y%)-STEP(xb%,yb%),l,b[RETURN] 

END SUBSUB ChackFila (file$,reS) 

STATIC[RETURN] 

8aarch$=file$+CHR$(0)[RETURN] 
reS=LockS(SADD(8earch$),-2)[RETURN] 

UnlockS(ras)[RETURN] 

END SUB 

EINDE list gas elektrakaart _ 


Zakenpakket C64 

Maak van uw Commodore 64 een zakencomputer. Acht Nederlandse programma’s 
voor midden- en kleinbedrijf en vereniging. 


Boekhouden 

Ledenadministratie 

Tekstverwerken 

Faktureren 

Voorraadadministratie 

I Adresbeheer 

5 Orderadministratie 

^ Kasboek 

i 

I 

j f399,- inclusief duidelijke Nederlandse handleiding en één jaar garantie. 

I INTERMARKETING, RIJNSTRAAT 157, AMSTERDAM 

Bel voor informatie of bestelling : 020 - 442 519 




















Amiga 


De Amiga 1000, 500 en 2000 staan al jaren bekend om hun uitstekende prestaties bij 
desktopyideo (dtv). Wat een IBM-compatibele PC met veel kunst & vliegwerk en dure 
investeringen net aankan heeft een Amiga al van huis uit. Vele professionele videoma- 
kers kozen daarom voor de Amiga. Op de amateurmarkt liep het allemaal wat minder 
hard. De prijzen voor videosoftware en -hardware schrokken menigeen toch af. Daar 
is de laatste maanden een kentering in gekomen. 


Amiga-video in de lift 

Meer hard en software bij dalende prijzen 


H et is een publiek geheim dat de Amiga op het gebied van graphics en ani¬ 
matie elke andere PC onder de ƒ 10.000,- klopt. Alleen de Mac II kan deze 
prestaties evenaren, maar dan spreek je meteen over een geheel andere 
prijsklasse. De PC kan zelfs met een VGA-kaart in de systeemkast van huis 
uit eigenlijk helemaal niets. Om een IBM-kloon tot op Amiga-hoogte op te 
krikken zijn peperdure hard- en software uitbreidingen nodig. 



De Amiga en de professional hadden 
elkaar snel gevonden. De omroepen 
en kabelkrantexploitanten keken niet 
op een paar centen. Zij bleken daar¬ 
entegen wel prijsbewust, want de 
Amiga bood ondanks de niet geringe 
bedragen voor de hard- en software 
meer waar voor zijn geld dan verge¬ 
lijkbare video-apparatuur. De kunste¬ 
naar ontdekte de grafische talenten 
van de 1000 en 2000 en u hoeft niet 
vreemd op te kijken als het palet op de 
kunstacademie ineens een Amiga 
beeldscherm blijkt te zijn. 

De Amiga-amateur was altijd goed ge¬ 
ïnformeerd over de grafische potentie 
van zijn of haar machine. Helaas ver¬ 
hinderden de voor de kleine beurs on¬ 


betaalbare prijzen voor geheugenuit- 
breiding, harddisks en videosoftware 
het ontginnen van de grafische over¬ 
vloed. Het bleef bij het jatten van een 
paar spelletjes en wat schuchtere on- 
derwijspogingen. 

Gelukkig heeft de groeiende belang¬ 
stelling voor de Amiga graphics en 
animaties aanmerkelijke prijsverlagin¬ 
gen tot gevolg gehad. Voor circa 
ƒ 2.000,- aan hardware en enkele 
honderden guldens software ver¬ 
bouwt u de Amiga tot een video- en 
grafisch ontwerpstudie die menige 
omroep en kabelstation naar de kroon 
steekt. 


Videotoepassingen van 
de Amiga 

Computers met grafische coproces- 
soren zoals de Amiga worden in de vi- 
deowereld gebruikt voor: 

° Aftiteling, gewone en geanimeerde 
titels, titeleffecten 

° Het ontwerpen van grafische 
stills zoals logo’s, emblemen, intro- 
schermen, art work e.d. 

° Het maken van grafische anima¬ 
ties, tekenfilmpjes, bewegende 
logo’s, onderwijsinstructie, slide 
shows enz. 

° Kabelkranten, hier onder vallen zo¬ 
wel de commerciële kabelkranten 
als de bedrijfsinformatiesystemen in 
onderwijsinstellingen, publieksvoor¬ 
lichting, ziekenhuizen enz. 

Op al deze terreinen profileert de Ami¬ 
ga ztch als low-budget machine. 

Hardware-ultbreldlngen 

Om de Amiga optimaal voor video- en 
HIRES grafische toepassingen ge¬ 
schikt te maken en zijn er enkele hard¬ 
ware uitbreidingen nodig. Voor HIRES 
graphics is 512 KB aan vrij RAM in de 
praktijk te krab. 1 MB is feitelijk het mi¬ 
nimum en liefst stoppe men 1.5 of 2 
MB in de machine. Tot voor kort be¬ 
taalde de Amiga-gebruikerzich blauw 
aan geheugenuitbreidingen van 1 MB 
of meer. Enig snuffelen in met name 
Duitse en in onze eigen Commodore 
Info- advertenties bracht aan het licht 
dat je nu gewoon een PC-prijsje be- 
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taalt. Een lege 1.8 MB-kaart voor de 
Amiga 500 of 1000 kost rond de 
ƒ 300,- en vol ligt de prijs tegen de 
ƒ 1.200,-. Wie daar nog niet genoeg 
aan heeft kan zelfs 3.8 MB in een Ami¬ 
ga 500 stoppen. Verwacht wel een 
prijskaartje van ƒ 2.500,-. Alleen in 
Duitsland te koop is een veel gehoor¬ 
de klacht. Nu is het op zich geen groot 
probleem om iets in Duitsland te be¬ 
stellen. De BTW gaat weer omlaag en 
de transportkosten zijn gering. Blijft ui¬ 
teraard de garantie. Inmiddels blijken 
ook een aantal Nederlandse firma’s 
Duitse en soms ook Engelse Amiga- 
spulletjes te importeren. Bijvoorbeeld 
E.C.R. in Enschede, tel.: 053-762884. 
Commodore besliste in zijn grote wijs¬ 
heid dat de Amiga’s met slechts één 
diskettestation worden geleverd. Al¬ 
leen bij de 2000 kan de eigenaar de 
leverancier verzoeken een extra drive 
in de systeemkast te monteren. Nu is 
slechts één 3.5 inch drive heel onge¬ 
makkelijk om snel graphics te laden 
en weg te schrijven. Software zoals 
DeLuxe Video en Paint gaat er al van 
uit dat u minimaal met twee floppydri- 
ves werkt. De prijzen voor een extra 
3.5 inch diskettestation variëren mo¬ 
menteel van ƒ 250,- tot ƒ 300,-. Nog 
beter is een harddisk. Duur zegt u. Wij 
vonden prijzen voor Amiga 500 en 
1000 harde schijven van ƒ 1.000,- (20 
MB), ƒ 1.200,- (30 MB) en ƒ 1.500,- 
(40 MB). Bij een Amiga 2000 bent u 
zelfs nog een honderdje of wat goed¬ 
koper uit. 

Hardware in/aanbouw 

Zoals bekend zijn er momenteel drie 
verschillende Amiga-modellen in om¬ 
loop. de 500, 1000 en 2000. De Ami¬ 
ga 1000 is de oudste en wordt officieel 
niet meer verkocht hetgeen overigens 
niet wil zeggen dat de markt voor sup- 
plies en randapparatuur uitgebloeid 
is. Integendeel zelfs want in Duitse en 
Nederlandse advertenties zien wij re¬ 


gelmatig interessante en redelijk ge¬ 
prijsde aanbiedingen. In de systeem¬ 
kast is nauwelijks plaats voor uitbrei¬ 
dingen. Dat betekent dat extra hard¬ 
ware er meestal in een apart kastje 
naast komt te staan of in één van de 
bussen (voor- en linkerzijde) gestoken 
moet worden. Het staat een beetje 
slordig, maar werkt verder prima. Een 
nettere oplossing is het gebruik van 
een onder of naast de systeemkast te 
plaatsen expansion box. 

De Amiga 2000 is de veelzijdigste 
Amiga. Door uit te gaan van een open 
systeemarchitectuur met uitbreidings- 
slots kan de eigenaar de machine vol¬ 
gens smaak configureren. Er is daar¬ 
bij keuze uit speciale Amiga-hardware 
en uitbreidingskaarten of drives voor 
IBM PC-klonen. Er is voldoende ruim¬ 
te voor inbouw van diskdrives, hard 
disks/cards en geheugenuitbreidings- 
kaarten. 

De Amiga 500 heeft hetzelfde pro¬ 
bleem als het model 1000. In de toet- 
senbordkast is alleen ruimte voor een 
stukje geheugenuitbreiding. Extra dri¬ 
ves e.d. dienen er los via de bus of 
poorten aangehangen te worden. 

Video- en tekensoftware 

Al die prachtige titels, tekeningen en 
animaties op de Amiga vallen uiter¬ 
aard niet uit de lucht. U zult hen eerst 
zelf moeten ontwerpen of kant-en- 
klaar op library-disk moeten kopen. 
Voor de videosoftware geldt hetzelfde 
verhaal als de hardware. Eerst duur 
nu redelijk betaalbaar. Pakketten als 
Deluxe Paint II en Deluxe Video 1.2 
kosten rond de ƒ 250,-. En daarmee 
kan de gebruiker al alle kanten uit. Ae- 
gis Animator is iets duurder. Een 
font- programma zoals TV-Text of Vi- 
deoTiteler verzorgt imponerende ti¬ 
tels en teksten voor video en kabel¬ 
krant. 

Onlangs kwam de nieuwe versie van 
Videoscape uit, Videoscape 3D V2.0. 

De ‘501’ 

geheugenuitbreiding 
voor de Amiga 500, 
die onder het 
moederbord wordt 
geprikt. Het geheugen 
wordt hiermee 
uit gebreid tot I MB. 

De kaart bevat ook 
een klok/kalender met 
batterij backup. 



Het pakket moet de Amiga-gebruiker 
in staat stellen om thuis complete 3D 
video-animaties te maken. Deze ver¬ 
sie ondersteunt de half-bright- (64 
kleuren) en HAM (4096 kleuren) - mo¬ 
dus in de overscan-resoluties 352 x 
280, 352 X 560, 704 x 280 en 704 x 
560 pixels. De met Videoscape ge¬ 
maakte beelden worden als frames in 
het geheugen opgeslagen en vervol¬ 
gens met een animatiesnelheid van 
20 - 30 beelden per seconde vloeiend 
afgespeeld. 

Videoscape 3D biedt verder alle te¬ 
kenhulpjes, vlakvullers, vergroten/ 
verkleinen, roteren, spiegelen, zoom¬ 
en, overvloeien enz. om goede video- 
plaatjes te kunnen maken. Voor een 
optimaal resultaat is 1 MB aan vrij 
RAM een must. Kwalitatief gezien is 
dit 3D-animatieprogramma geschikt 
voor huisvideo, dtv en kabelkranten. 
De prijs van dit Aegis-programma ligt 
rond de ƒ 400,-. 

Video Effects 3dD (Innovision) 
maakt van normale IFF-bestanden 
ruimtelijke beelden. Die IFF-bestan- 
den dient u wel eerst met een apart te¬ 
ken- of titelprogramma aan te maken. 
De maximale resolutie bedraagt 640 x 
400 punten in 8 kleuren. Er is o.a. keu¬ 
ze uit de bewerkingen draaien om de 
X/Y/Z-as, vergroten/verkleinen, ver¬ 
schuiven, (diepte versterkende) scha¬ 
duwen toevoegen , kiepen en belich¬ 
ten. Om rekentijd te sparen geeft Vi¬ 
deo Effects 3D de figuren eerst als 
draadmodellen weer. Is het model 
naar wens dan wordt het volledig in¬ 
gevulde 3D-figuur berekend en als 
een bestand opgeslagen. Daarna 
kunnen de animaties met een vloeien¬ 
de snelheid van 60 (I) beeldjes per se¬ 
conde worden afgespeeld. De grafi¬ 
sche kwaliteit van dit programma is 
hoog. Ons inziens blijft de toepassing 
er van voorbehouden aan de (semi)- 
profesionele videoproducent. De prijs 
van ƒ 500,-, een minimaal vereiste 
RAM-capaciteit van 2.5 MB en de 
noodzakelijkheid van een hard disk 
zullen menige beginner afschrikken. 

De kreet "LICHT! KAMERA! AKTIE!" 
doet het bloed van de videofilmer 
sneller stromen. Aegis Development’s 
nieuwe Lights! Camera! Action! 
(LCA) homevideo- en demo-pakket 
sluit daar prima op aan. Het pakket 
bestaat uit twee diskettes, een met 
Grab-Anim het programma voor het 
maken van de scripts (het aan elkaar 
plakken en animeren van de graphics) 
en een schijf met demo’s. Het pro¬ 
gramma is volledig menugestuurd en 
stelt de gebruiker o.a. in staat om gra¬ 
fische files op te halen scripts in ASCII 
weg te zetten de gewenste videomo- 
dus (HAM, Extra half-bright, PAL, 
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Tilcls kunnen met DeLuxe Video over de 
lopende videobeelden worden gespeeld 


via de gen lock 


Met DeLuxe Video zijn een groot aantal 
speciale effecten mogelijk, zoals dit 
hloksgewijze ‘wipen . 



Overscan en de Color-Cycle-anima- 
tie) in te stellen en een sound- track 
toe te voegen. LCA is compatibel met 
Videoscape 3D in kan de daarmee ge¬ 
maakte animaties in de scripts opne¬ 
men. 

Op de keper beschouwd is Aegis LCA 
niet meer en niet minder dan een edi- 
tor (regisseur) en coördinator. Echter 
wel een hele capabele samensteller 
waarmee menige home-videoer, ka¬ 
belexploitant, kabelomroep en rekla- 
meman zijn voordeel mee kan doen. 
Diashows, animaties, educatieve de- 
mos, geanimeerde reclames, logo- en 
titels alles ligt binnen het gebruiks¬ 
vriendelijke bereik van Lights! Came¬ 
ra! Actionl. En om de prijs van minder 
dan ƒ 200,- behoeft u de aankoop niet 
te laten. 

Tot slot wijzen wij nog eventjes op het 
professionele kabelkrant- pakket Fe- 
nesta van PC House waar u zelf de lo¬ 
kale kabel mee op kunt. 

Genlocks en 
PAL-encoders 

De functie van een genlock is het 
beeld van een conventionele PAL-vi- 
deobron met het computer RGB- 
beeld te combineren tot één nieuw sa¬ 
mengesteld PAL-uitgangssignaal. In 
de praktijk lijkt het allemaal veel op 
een superpositie van twee videobeel¬ 
den. Het proces is echter aanzienlijk 
gecompliceerder. Gelukkig regelt de 
hardware van de genlock dat allemaal 
voor u. 

Een genlock biedt ondermeer de vol¬ 
gende mogelijkheden: 

• Het gebruik van computer-gra- 
phics in de voorgrond. Bijvoor¬ 
beeld geanimeerde titels over een 
bestaand videobeeld heen leggen 
of tekenfilmfiguren aan een gewo¬ 
ne life video toevoegen. 

• Het gebruik van computer-gra- 
phics in de achtergrond. Bijvoor¬ 


beeld het laten optreden van men¬ 
sen in een futuristisch door de 
computer opgetekend 3D-land- 
schap. 

• Extra mogelijkheden zoals fade 
in/out, beïnvloeding van kleurstel¬ 
ling (RGB), contouren 
(links/rechts) kontrast en luminan- 
tie. 

• Gebruik (eigenlijk misbruik) als 

PAL-encoder. 

Niet elke genlock beschikt over de¬ 
zelfde mogelijkheden en de kwaliteit 
van het geproduceerde uitgangssig¬ 
naal kan sterk verschillen. Vroeger 
waren er slechts twee kategorieën 
genlocks amateur- en promodellen. 
Het grote verschil was het prijskaartje 
waarbij de laatste kategorie wel tien¬ 
maal zo duur kon uitpakken als de 
amateurklasse. Vooreen pro-genlock 
betaalde je minimaal ƒ 4.000,- (bij¬ 
voorbeeld de IVS Genlock van PC 
House Osdorp) en voor een genlock 
van bijvoorbeeld Alldata minder dan 
1.000 piek. Tot zijn verrassing trof u 
redacteur op de Audio Video 88 (Dus- 
seldorf) (semi)-professionele Amiga- 
genlocks van rond de ƒ 2.000,- aan. 
Bijvoorbeeld de nieuwe Videocomp 
VCG-3 RGB-genlock met een RGB- 
PAL bandbreedte van 5,5 MHz. Dat 
wordt interessant voor VHS Super. 
Wie zijn/haar Amiga-videobeelden 
gewoon op de VCR wil overnemen 
komt tot de ontdekking dat de PAL-uit- 
gang van alle Amiga’s ronduit bedroe- 
fend is. Alle ombouwmogelijkheden 
en insteekkaarten ten spijt blijft het in 
vergelijking met de broadcasting qua- 
lity gewoon knoeiwerk. De enige ma¬ 
nier om een goed (kabel)-signaal uit 
de Amiga te sleutelen in de inzet van 
een professionele PAL-encoder. 
Weer duur zegt u? Op de Audio Video 
88 rekende Videocomp voor haar 
VCW-1 met RGB-, kontrast- en hel- 
derheidscontrole minder dan ƒ 800,-. 
De kwaliteit bleek verbluffend voor 


deze prijsklasse. Voor echt superpro- 
fessionele apparatuur kunt u, helaas 
aanzienlijk duurder, o.a. terecht bij PC 
House Osdorp, tel. 020-106940. 

N.B. :Een nederlandse importeur van 
Videocomp is mij momenteel niet be¬ 
kend. Het duitse adres is: Bergerstas- 
se 193, 6000 Frankfort 60. 

Monitoren 

Het bekijken van de fraaie Amiga gra- 
phics en animaties verdient een goe¬ 
de monitor. Standaard is de Commo¬ 
dore 1084, maar dankzij de scart-uit- 
gang is de keuze groter. De 1084 
wordt steeds goedkoper, nu al minder 
dan ƒ 700,- en doet alle Amiga gra- 
phics recht aan. Zwakke punten van 
deze monitor zijn de enigzins flikke¬ 
rende interlace en het spiegelende 
beeldscherm. Op de stabiliteit en het 
scheidend vermogen valt verder niets 
aan te merken. De 1084 is ook via de 
PAL AV-ingang als videomonitor in¬ 
zetbaar. 

Via een 9-pins Sub-D of een scart kan 
met gemak een multisync monitor op 
de Amiga worden aangesloten. Moni¬ 
toren zoals de NEC Multisync II en de 
JVC GD-H 3214 VGW zijn voor meer¬ 
dere computertypen (handig op de 
Amiga 2000 in de IBM PC XT/AT-mo- 
dus) en bieden over het algemeen 
een goede beeldkwaliteit. Als nadeel 
geldt de hoge prijs. Verder biedt Phi¬ 
lips een uitgebreide range kleurenmo- 
nitoren waaronder de aan de 1081 ge¬ 
lijke CM 8833 en multisync modellen. 

VHS Super 

De op de Firato 1988 in Nederland ge¬ 
lanceerde VHS(uper) video- appara¬ 
tuur belooft het nieuwe Mekka van de 
kwaliteitsbewuste videohobbyist en 
kleine professional te worden. Kwali¬ 
tatief benadert VHS S de scherpte van 
Umatic en de kleurenweergave wordt 
door een aantal insiders als beter be¬ 
titeld. Een bijkomende voordeel is dat 
VHS S moederhanden perfecte ko¬ 
pieën naar gewone VHS-recoders en 
banden kunnen overspelen. Tot op 
heden was het niet goed mogelijk de 
opnamekwaliteit bij de kopie te hand¬ 
haven. Bij monteren op VHS Super 
wel. Hetzelfde geldt voor de overna¬ 
me van de Amiga-beelden op VHS S. 
De prijzen van VHS S videorecorders 
liggen momenteel net beneden de ƒ 
4.000,-. Zakken ziet er gezien de toe¬ 
nemende concurrentie op korte ter¬ 
mijn in. 

De videocamera’s zijn dankzij de toe¬ 
passing van hoogwaardige CCD vi- 
deochips weer een stuk scherper en 
kleurgetrouwer geworden. Een beper- 
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Commodore’ s 1084S 
stereo 

kleurenmonitor (13 
inch diagonaal). 
Deze monitor heeft 
een ingehouwde 
stereo-versterker en 
speaker. 


kende factor vormt nog de ingebouw¬ 
de VCR in de camrecorder. Het beeld 
over de monitoruitgang is aanzienlijk 
beter dan dat uit de recorder komt. 
Toepassing van de VHS S-techniek 
brengt hierin een forse verbetering. 

Overige 

video-apparatuur 

De videomogelijkheden van de Amiga 
kunnen aangevuld worden met rand- 
apparatuur uit de videowereld. Wij ge¬ 


ven een aantal voorbeelden: 

• Montage VCRs voor het naad¬ 
loosmonteren van de PAL-beel- 
den en het achteraf toevoegen 
van geluid (audio dub). 

• Digitale VCRs voor het weerge¬ 
ven van een perfect stilstaand 
beeld (een must voor video-digiti- 
zen), beeld in beeld display, het 
weegeven van meerdere beeldjes 
tegelijk, solariseren, painten noem 
maar op. De meeste effecten zijn 


overspeelbaar naar een andere 
niet digitale videorecorder 

• Special Effect Generatoren 

(SEGs) voor het maken van video- 
trukages zoals wipes, painting, ne¬ 
gatief/positief, defocus, verplaats¬ 
baar beeld in beeld en fade in/out 

• Videoprocessoren/correctoren 

voor het wegwerken van de opna- 
mefouten 

• Computergestuurde montage- 
units, de zogenaamde video- edi- 
tors 

Tezamen met deze randapparatuur 
kan lederen beneden de ƒ 10.000,- 
een volledige desktopvideo-studio sa¬ 
menstellen. 

DTV op de Amiga komt dankzij de da¬ 
lende prijzen, het grote aanbod en de 
ontwikkeling van nieuwe videotechno¬ 
logieën binnen ieders bereik. De hard¬ 
ware en software kosten steeds min¬ 
der en de geboden kwaliteit neemt 
over de gehele linie toe. De videohob- 
byist, kleine videoproducent, voorlich¬ 
ter en het onderwijs kunnen daar hun 
voordeel mee doen. 

U.S 


Buys Computers . 


The amazing 
diskdrive 

Voor olie Commodore homecompufers 

- 30% sneller 

- Kompakter 

- 100% 1541 compatible 
- 1 jaor garanh'e 



349 ,- 


Amiga 501 
Expansion 

ƒ 395,= 


StarNX-10C 

printer 

fl. 499,- 


Kao diskettes 

100% certified 
ideaal voor Amiga 
5.25" DS/DD 1,75 
3.50" DS/DD 3,95 


AMIGA DRIVES 

5.25" drive 

- 40/80 tracks 

- aan/uif schakelaar 

- slimline uitvoering 

fl. 449,- 

3.50" drive 

- slimline 

- aan/uif schakelaar 

ƒ 298,= 

1 jaar garantie 


Postorders: bel voor informatie tel. 01 1 50>94347 Fax 01150-18878 
Alle prijzen inklusief fi.T.W. Ook verzending onder rembours, boven fl. 100,- geen exfro kosten! 
Nu ook leverboor in: Ewijk (Nijmegen), Hoogeveen, Zutphen en Soppemeer 
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Vrijwel iedereen die zich bezighoudt met synthesizers en computers denkt gelijk aan 
MIDI. MIDI staat voor: Musical Instrument Digital Interface. Een computer als de Ami- 
ga Is zeer geschikt om als MIDI-station te fungeren. 

Zelfbouw MIDI interface voor 
de Amiga 500/2000 

E r zijn natuurlijk MIDI interfaces in de handel voor de Amiga. Maar wat is 
er nu ieuker dan het zeif bouwen van zo’n interface. Dat dat ook nog veel 
minder geid kost is dan mooi meegenomen. Voor deze bouw is natuurlijk 
wei weer enige voorkennis op het gebied van eiectronica noodzakeiijk. 

Naast de beschrijving van de hardwarebouw is ook software opgenomen die 
het MIDI-gebruik demonstreert. 



De MIDI standaard stamt uit het voor¬ 
jaar van 1983, toen Roland de MIDI 
standaard introduceerde op de Win- 
ter-Namm-Show in de Verenigde Sta¬ 
ten. Kort daarna was MIDI wereldwijd 
de standaard. 

MIDI-instrumenten worden met be¬ 
hulp van een DIN-plug met elkaar ver¬ 
bonden. Dit is dezelfde plug als bij ou¬ 
dere HiFi installaties. HiFi installaties 
werken echter analoog. MIDI instru¬ 
menten werken digitaal en serieel, 
waarmee we bij de computers zijn 
aangeland die tevens digitaal en seri¬ 
eel werken. 

De data wordt via een seriële poort 
verzonden met een snelheid van 
31.250 baud. Deze data wordt iedere 
320ste micro seconden in pakjes van 
tien bits verzonden (een startbit, 8 da- 
tabits en 1 stopbit). Deze informatie 
kan door zestien adresseerbare kana¬ 
len worden verzonden. Dit heeft tot 
voordeel dat bij grotere MIDI-installa- 
ties de data naar meerdere instrumen¬ 
ten tegelijk kan worden verzonden, le¬ 
der kanaal kan ook nog verschillende 
datasoorten bevatten. De vier data 
soorten zijn; MONO, MULTI, OMNI en 
POLY. 


MONO 

Deze mode komt over het algemeen 
alleen voor bij de duurdere MIDI-in- 
strumenten. Iedere stem kan een ei¬ 
gen MIDI kanaal toegewezen krijgen. 
Bij een zes stemmig keyboard kunnen 


de kanalen één tot en met zes ge¬ 
bruikt worden. Het eerste kanaal is in 
dit geval het basiskanaal. Van daaruit 
kunnen de vijf hogere kanalen oplo¬ 
pend gekozen worden. In verbinding 
met sequencers of computers zijn 
zeer complexe arrangementen reali¬ 
seerbaar. Een klein nadeel van de 
MONO mode is dat bijvoorbeeld voor 
een driestemmig accoord met hetzelf¬ 
de instrument drie MIDI-kanalen no¬ 
dig zijn. 

MULTI 

Deze mode is nog relatief nieuw en 
toch het verst ontwikkeld. Ze combi¬ 
neert de voordelen van de POLY en 
de MONO mode. Een synthesizer die 
over een MULTI-mode beschikt ge¬ 
draagt zich als een systeem met 



MIDI intei*fa.ce 



Aansluiten van een 
keyboard aan de 
Amiga met behulp 
van een 

MIDI-interface 
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Benodigde onderdelen 

1 X SN 74LS366 
1 X 6N138 (Optocoupler) 

1 X 1N4148 (diode) 

5 X weerstanden 220 Ohm 

2 X weerstanden 470 Ohm 
2 X weerstanden 680 Ohm 

1 X MC7805 (spannings regelaar) 

1x10 micro-Fahrad (condensator) 

1 X BC547 (transistor) 

3x5 polige DIN connector 45 graden 
1 X 25 polige SUB D female connector 
1 X 5 polig draad (+/- 50 cm) 

Alleen aansluiten op de RS-232 als de compu¬ 
ter uit is! 

Mogelijkheden: 

° 1 MIDI in 
° 1 MIDI thru 
°1 MIDI out 


Lijst van benodigde onderdelen (hoven) en het 
schema van de printplaat (rechts). 


MIDI OUT MIDI THRU MIDI IN 



meerdere keyboards in POLY mode. 
Dat wil zeggen dat over verschillende 
kanalen de enkele stemmen van de 
sythesizer zich met verschillende ge¬ 
luiden laten aansturen. Daarbij kun¬ 
nen in tegenstelling tot de MONO- 
mode over een kanaal ook meerdere 
stemmen met gelijke accoorden ver¬ 
zonden worden. 




Voorbeeld van het gebruik van de 
Multi-mode met een Master-keyboard. 


OMNI 


In deze mode wordt er altijd verzon¬ 
den op kanaal 1 en het ontvangen kan 


1 I- \ 



Alt 


Meerdere synthesizers worden als een 
ketting met elkaar verbonden in de 
Omni-mode 


op ieder kanaal gebeuren (één tot en 
met zestien). 

Alle op sythesizer A gespeelde noten 
zijn tevens op synthesizer B te horen. 

POLY 

Deze mode is bijna hetzelfde als de 
OMNI mode. Het enigste verschil is 
dat hier de kanalen die zenden en ont¬ 
vangen wel te kiezen zijn. 

In het door ons gemaakte voorbeeld 
wordt de OMNI-mode gebruikt. Dit 
komt onder andere door het Cheetah 
keyboard. De vier data-soorten zijn 
niet bij alle sythesizers te vinden. De 
meest gebruikte is de POLY mode. De 
datasoorten bevatten de gegevens 
van alle MIDI-instrumenten. Er zijn 
verschillende soorten informatie: Sys¬ 
tem common, system realtime en Sys¬ 
tem exclusive. 

“System common: MIDI-tune re- 
quest, dit houdt in de stem proberen 
en eventueel corrigeren. 

° System realtime: Deze zorgt er¬ 
voor dat de MIDI instrumenten en 
de tonen synchroon lopen (synthe¬ 
sizers en drumcomputers). 

° System exclusive: De door de fa¬ 
brikant zelf gedefineerde mogelijk¬ 
heden, deze worden door de se- 
quencer uitgebuit (dit is bij iedere 
synthesizer anders). Daarom zijn er 
zoveel verschillende sequencer pro¬ 
gramma’s voor de Amiga. 

Bij het verzenden moet het ene MIDI- 
instrument op ontvangen staan en het 
andere op zenden. Het keyboard dat 
op zenden staat noemt men de mas- 
ter (MIDI out) en het keyboard dat ont¬ 
vangt is aangesloten op MIDI in. 


Als er op het master keyboard een 
toets wordt aangeslagen wordt bij het 
keyboard dat op ontvangen staat de¬ 
zelfde toon gespeelt. Omdat er meest¬ 
al twee verschillende instrumenten 
met elkaar zijn gekoppeld klinken er 
twee verschillende geluiden in dezelf¬ 
de toonhoogte. Dit wordt veel gebruikt 
bij moderne popgroepen. De trend is 
tegenwoordig synthesizers zonder 
keyboard zoals de Roland MT-32. De 
mooiste mogelijkheden met MIDI 
heeft men in samenwerking met een 
computer. De computer kan dan als 
editor of sequencer dienen. De com¬ 
puter kan ook nog de noten op het 
beeldscherm weergeven die men dan 
ook nog kan uitprinten. Met een editor 
kunnen de intrumenten worden geko¬ 
zen en bijgewerkt. Met de sequencer 
kan men noten opnemen die op een 
keyboard worden gespeeld. 
Voorbeelden van enkele program¬ 
ma’s voor de Amiga die met een MIDI 
interface en Cheetah MK5 keyboard 
werken: Aegis Sonix, DeLuxe music 
construction set, Studio-magic, Oa- 
sis-sound en Pro midi plus. Voorbeel¬ 
den van programma’s waarbij een 
echte synthesizers nodig is: Music X, 
Dr T, Music Studio, Dynamic Drums, 
Dynamic Studio en MIDI Magie. Zoals 
u ziet keuze genoeg aan MIDI-soft- 
ware voor de Amiga. 

De MIDI interface 

Op deze MIDI interface kan men een 
Cheetah MK5 aansluiten op MIDI in 
(dit wordt bij het programma gebruikt). 
Eventueel kan een Roland MT-32 (of 
iets dergelijks) op MIDI out worden 
aangesloten om te sequencen. 
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Het bouw-ontwerp kan op een experi- 
menteerprint of op een geëtste print 
worden gebouwd. Denk eraan om de 
IC’s, transistor, diode en de span- 
nings-regelaar goed om te zetten. 
Sluit de connector goed aan! 

Bij de Amiga 1000 moet de connector 
male zijn en anders worden aangeslo¬ 
ten (zie Intern boek). 


Het programma 

Het nu volgende programma is ge¬ 
schreven met behulp van de SEKA 
assembler. Het is aan te bevelen 
Seka 2.0 te gebruiken. Het program¬ 
ma leest enkele toetsen van het key¬ 
board uit en reageert als deze worden 
aangeslagen. Het belangrijkste van 


de listing is de routine die de MIDI in¬ 
terface uitleest. 

Zie afbeelding 1 voor de codes die 
worden teruggezonden door het key¬ 
board. Deze zijn de vinden in de routi¬ 
ne genaamd search. Verder staat er in 
het programma nog hoe men een 
sample kan inladen en met verschil¬ 
lende snelheden kan afspelen. Ik ge¬ 
bruik in het voorbeeld de data-disk 1 
van soundtracker. Denk er vooral aan 
dat bij het opstarten de computer ver¬ 
wacht dat er een disk in DFO: aanwe¬ 
zig is waarop het ingevulde instrument 
staat en in de DEVS directory het se- 
rial.device. Deze kan eventueel van 
de originele Workbench gekopieerd 
worden. 

De regels met; ervoor hoeven niet te 
worden ingetypt. Deze geven alleen 
uitleg wat er in dat programma onder¬ 
deel gebeurt. De nummering hoeft 
eveneens niet te worden ingetypt, 
deze is alleen ter controle. Seka geeft 
zelf een numering aan. 

In het programma ga ik er vanuit dat 
het keyboard is aangesloten op MIDI 
In en dat deze op channel 0 staat in¬ 
gesteld (standaard instelling als het 
keyboard wordt aangezet!). 

Als er vragen, opmerkingen, sugge¬ 
sties of aanmoedigingen zijn reageer 
dan gerust via het adres van de redac¬ 
tie o.v.v. MIDI. 

Onze dank gaat uit naar John de Haan 
voor zijn keyboard. 

Danny Brandt ontwikkelde zoals altijd 
de hardware en Hans van der Pol 
schreef de software. 


1 uitleg--- 

2 ;MIDI demo (c) Hans van der Pol 

3 ivoor C= Info. Dit programma leest 

4 lenkele toetsen van een keyboard 

5 ;uit en leest deze via de MIDI in. 

6 ;De Amiga laat het ingelezen ins- 

7 itrument horen (tuil stereo) 

8 ;—werkwijze— 

9 lachterin het programma de naam van 

10 ;het instrument invoeren, (onder 

11 ;instrument_name). Achter iengte de 

12 ilengte van het instrument ingeven. 

13;- 

14 ;Op de disk waarmee dit programma 

15 lopstart moet het volgende staan: 

16 in de DEVS directory het device: 

17 i’serial.device’ 

18 in de hoofd directory een inst- 

19 irument, waarvan de naam in dit 

20 ,-programma staat met de juiste 

21 ilengte 

22 ;- 

23 iNiet alle toetsen op het keyboard 

24 iworden uitgelezen. Het is immers 


25 ;een Demo versie... 

26 ;als er genoeg interesse is komt er 

27 imisschien nog een verbeterde 

28 iversie. Met ritmes of iets derge- 

29 ilijks. 

30 ;- 

31 offsets— 

32 

33 lintuition.library 

34 drawborder =-108 

35 openscreen =-198 

36 closescreen = -66 

37 openwindow = -204 

38 closewindow = -72 

39 printitext =-216 

40 

41 idos.library 

42 getmsg = -372 

43 delay =-198 

44 open = -30 

45 close = -36 

46 read = -42 

47 

48 igraphics.library 
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49 rectfill = -306 

124 move.l gfxbase,a6 

199 

50 setapen = -342 

125 move.l rastport,a1 

200 

51 

126 move.l #140,d0 

201 

52 ;exec.library 

127 move.l #61,dl 

202 

53 sendio = -462 

128 move.l #160,d2 

203 

54 findtask = -294 

129 move.l #110,d3 

204 

55 addport = -354 

130 jsr rectfill{a6) 

205 

56 remport = -360 

131 move.l gfxbase,a6 

206 

57 opendev = -444 

132 move.l rastport,a1 

207 

58 closedev = -450 

133 move.l #190,d0 

208 

59 doio = -456 

134 move.l #61,dl 

209 

60 openlib = -408 

135 move.l #210,d2 

210 

61 closelibrary =-414 

136 move.l #110,d3 

211 

62 execbase = 4 

137 jsr rectfilljaé) 

212 

63 

138 move.l gfxbase,a6 

213 

64 icustom chips adressen 

139 move.l rastport,a1 

214 

65 toets = $bfec01 

140 move.l #290,d0 

215 

66 audOIch = $dff0a0 

141 move.l #61,dl 

216 

67 audOlen = $dff0a4 

142 move.l #310,d2 

217 

68 audOper = $dff0a6 

143 move.l #110,d3 

218 

69 audOvol = $dff0a8 

144 jsr rectfill(a6) 

219 

70 audl Ich = $dff0b0 

145 move.l gfxbase,a6 

220 

71 audl len = $dff0b4 

146 move.l rastport,a1 

221 

72 audl per = $dff0b6 

147 move.l #340,dO 

222 

73aud1vol = $dff0b8 

148 move.l #61,dl 

223 

74 dmacon = $dff096 

149 move.l #360,d2 

224 

75 

150 move.l #110,d3 

225 

76 eigenlijke programma— 

151 jsr rectfill(a6) 

226 

77 ;alles openen 

152 move.l gfxbase,a6 

227 

78 ;intuition library openen 

153 move.l rastport,a1 

228 

79 move.l execbase,a6 

154 move.l #440,d0 

229 

80 lea intname,a1 

155 move.l #61,dl 

230 

81 jsr openlib(a6) 

156 move.l #460,d2 

231 

82 move.l d0,intbase 

157 move.l #110,d3 

232 

83 

158 jsr rectfill(a6) 

234 

84 ;dos library openen 

159 move.l gfxbase,a6 

235 

85 move.l execbase,a6 

160 move.l rastport,a1 

236 

86 lea dosname,a1 

161 move.l #490,d0 

237 

87 jsr openlib(a6) 

162 move.l #61,dl 

238 

88 move.l d0,dosbase 

163 move.l #510,d2 

239 

89 

164 move.l #110,d3 

240 

90 ;graphics library openen 

165 jsr rectfill(a6) 

241 

91 move.l execbase,a6 

166 move.l gfxbase,a6 

242 

92 lea gfxname,a1 

167 move.l rastport,al 

243 

93 jsr openlib(a6) 

168 move.l #540,d0 

244 

94 move.l d0,gfxbase 

169 move.l #61,dl 

245 

95 

170 move.l #550,d2 

246 

96 ;screen openen 

171 move.l #110,d3 

247 

97 move.l intbase,a6 

172 jsr rectfill(a6) 

248 

98 lea screen_defs,a0 

173 

249 

99 jsr openscreen(a6) 

174 ;keyboard merk afdrukken 

250 

100 move.l d0,screenhd 

175 Ieatext1,a1 

251 

101 

176 move.l #80,d0 

252 

102 ;window openen 

177 move.l #45,d1 

253 

103 move.l intbase,a6 

178 bsr print 

254 

104 lea window_defs,a0 

179 

255 

105 jsropenwindow(a6) 

180 ;soundje load 

256 

106 move.l d0,windowhd 

181 ;hier wordt een sample van disk 

257 

107 move.l windowhd,a0 

182 ;geiaden, naar $40000 

258 

108 move.l 50(a0),a0 

183 ;ik ga uit van een lengte van 9900 

259 

109 move.l a0,rastport 

184 ;bytes. 

260 

110 

185 move.l #$5000,d0 

261 

111 ;keyboard tekenen 

186 move.l #$40000,a0 

262 

112 bsr borderdraw 

187 ;eerst eventuele troep uit het 

263 

113 move.l gfxbase,a6 

188 ;geheugen gooien. 

264 

114 move.l rastport,a1 

189 hamburger: 

265 

115 move.l #15,d0 

190 move.l #$0,(a0)+ 

266 

116 jsr setapen(a6) 

191 sub.l #1,cl0 

267 

117 move.l gfxbase,a6 

192 bne hamburger 

268 

118 move.l rastport,a1 

193 

269 

119 move.l #90,d0 

194 move.l dosbase,a6 

270 

120 move.l #61 ,d1 

195 lea instrument name,a0 

271 

121 move.l #110,d2 

196 move.l a0,d1 

272 

122 move.l #110,d3 

197 move.l #$03ed,d2 

273 

123 jsr rectfill(a6) 

198 jsropen(a6) 

274 


cmp.l #0,d0 
beq file not_found 
move.l d0,d1 
move.l d1,sound 
move.l #$40000,d2 
move.l #$ffffff,d3 
jsr read(a6) 
move.l sound,d1 
jsr close(a6) 

;serial.device inladen 
;deze moet in de DEVS 
;directory staan 

move.l execbase,a6 
sub.l a1,a1 
jsr findtask(a6) 
move.l d0,reply+$10 

lea reply,a1 
jsr addport(a6) 

lea devio,a1 
cir.l dO 
cir.l d1 

lea devicename,aO 
jsr opendev(a6) 
tst.l dO 
bne afsluiten 

;De Baud rate van de 
;MIDI zetten (32500). 

lea devio,a1 
move.l #reply,14(a1) 
move.w #11,28(a1) 
move.l #32500,ioextd+12 
jsr doio(a6) 

;-hoofdlus--. 

;hier wordt het keyboard 
;afgescant om te kijken of 
;er een toets op het keyboard 
;werd ingedrukt. 

wacht: 

move.l windowhd,a0 
move.l 86(a0),a0 
move.l execbase,a6 
jsr getmsg(a6) 
move.l d0,a0 
move.l 20(a0),d6 
tst.l dO 
bne afsluiten 
;toetsenbord afscannen 
lea devio,a1 
move.l #reply,14(a1) 
move.w #2,28(a1) ;read 
move.l #buffer,40(a1) 
move.l #1,36(a1) 
move.l execbase,a6 
jsr doio(a6) 
lea devio,a1 
move.l #reply,14(a1) 
jsr sendio(a6) 
move.b buffer,d0 
bsr search 
bra wacht 

;—vergelijken— 

;hier wordt de binnen gekregen 
;code vergeleken, om te kijken 
;welke toets werd ingedrukt.... 

search: 
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275 cmp.b#$29,d0 

276 beq sprite 

277 cmp.b #$2b,d0 

278 beq fanta 

279 cmp.b #$2d,d0 

280 beq cola 

281 cmp.b #$2f,d0 

282 beq coca 

283 cmp.b #$30,dO 

284 beq pepsi 

285 cmp.b #$32,dO 

286 beq bron 

287 cmp.b #$34,dO 

288 beq spa 

289 cmp.b #$35,dO 

290 beq raak 

291 cmp.b #$37,d0 

292 beq sourcy 

293 cmp.b #$39,d0 

294 beq up 

295 rts 

296 

297 ;— geluid weergeven — 

298 ;hier produceert de amiga het 

299 ;geluid, voor iedere toets een 

300 ;andere afspeel snelheid. 

301 

302 pepsi: 

304 lea text3,a1 

305 move.l #270,d0 

306 move.l #155,dl 

307 bsr print 

308 move.l #$40000,aud0lch 

309 move.w #[lengte/2],aud0len 

310 move.w #100,audOper 

311 move.w #64,aud0vol 

312 move.w #$8201,dmacon 

313 move.l dosbase,a6 

314 move.l #15,d1 

315 jsrdelay(a6) 

316 move.w #$1,dmacon 

317 Ieatext0,a1 

318 move.l #70,dO 

319 move.l #155,d1 

320 bsr print 

321 rts 

322 

323 coca: 

324 lea text3,a1 

325 move.l #220,d0 

326 move.l #155,d1 

327 bsr print 

328 move.l #$40000,audOIch 

329 move.w #[!engte/2],aud0len 

330 move.w #200,aud0per 

331 move.w #64,aud0vol 

332 move.w #$8201,dmacon 

333 move.l dosbase,a6 

334 move.l #25,d1 

335 jsrdelay(a6) 

336 move.w #$1,dmacon 

337 lea text0,a1 

338 move.l #70,dO 

339 move.l #155,d1 

340 bsr print 

341 rts 

342 

343 cola: 

345 lea text3,a1 

346 move.l #170,d0 

347 move.l #155,d1 

348 bsr print 

349 move.l #$40000,aud0lch 

350 move.w #[lengte/2],aud0len 

351 move.w #290,aud0per 


352 move.w #64,aud0vol 

353 move.w #$8201,dmacon 

354 move.l dosbase,a6 

355 move.l #35,d1 

356 jsr delay(a6) 

357 move.w #$1,dmacon 

358 lea text0,a1 

359 move.l #70,d0 

360 move.l #155,d1 

361 bsr print 

362 rts 

363 

364 fanta: 

365 lea text3,a1 

366 move.l #120,dO 

367 move.l #155,d1 

368 bsr print 

369 move.l #$40000,aud0lch 

370 move.w #[lengte/2],aud0len 

371 move.w #400,aud0per 

372 move.w #64,aud0vol 

373 move.w #$8201,dmacon 

374 move.l dosbase,a6 

375 move.l #45,dl 

376 jsr delay{a6) 

377 move.w #$1,dmacon 

378 lea text0,a1 

379 move.l #70,d0 

380 move.l #155,d1 

381 bsr print 

382 rts 

383 

384 sprite: 

385 lea text3,a1 

386 move.l #70,d0 

387 move.l #155,dl 

388 bsr print 

389 move.l #$40000,aud0lch 

390 move.w #[lengte/2],aud0len 

391 move.w #500,audOper 

392 move.w #64,aud0vol 

393 move.w #$8201,dmacon 

394 move.l dosbase,a6 

395 move.l #55,dl 

396 jsrdelay(a6) 

397 move.w #$1,dmacon 

398 lea text0,a1 

399 move.l #70,d0 

400 move.l #155,d1 

401 bsr print 

402 rts 

403 

404 up: 

405 lea text3,a1 

406 move.l #520,d0 

407 move.l #155,d1 

408 bsr print 

409 move.l #$40000,aud1lch 

410 move.w #[lengte/2],aud1len 

411 move.w #100,aud1 per 

412 move.w #64,aud1 vol 

413 move.w #$8202,dmacon 

414 move.l dosbase,a6 

415 move.l #15,d1 

416 jsrdelay(a6) 

417 move.w #2,dmacon 

418 lea text0,a1 

419 move.l #120,d0 

420 move.l #155,dl 

421 bsr print 

422 rts 

423 

424 sourcy; 

425 lea text3,a1 

426 move.l #470,d0 


427 move.l #155,dl 

428 bsr print 

429 move.l #$40000,aud1lch 

430 move.w #[lengte/2],aud1len 

431 move.w #200,aud1 per 

432 move.w #64,audl vol 

433 move.w #$8202,dmacon 

434 move.l dosbase,a6 

435 move.l #25,d1 

436 jsrdelay{a6) 

437 move.w #$2,dmacon 

438 lea text0,a1 

439 move.l #120,d0 

440 move.l #155,d1 

441 bsr print 

442 rts 

443 

444 raak: 

445 lea text3,a1 

446 move.l #420,d0 

447 move.l #155,d1 

448 bsr print 

449 move.i #$40000,audl Ich 

450 move.w #[lengte/2],audl len 

451 move.w #290,aud1 per 

452 move.w #64,aud1 vol 

453 move.w #$8202,dmacon 

454 move.l dosbase,a6 

455 move.l #35,d1 

456 jsr delayjaé) 

457 move.w #$2,dmacon 

458 lea text0,a1 

459 move.l #120,dO 

460 move.l #155,d1 

461 bsr print 

462 rts 

463 

464 spa: 

465 lea text3,a1 

466 move.l #370,dO 

467 move.l #155,dl 

468 bsr print 

469 move.l #$40000,aud1 Ich 

470 move.w #[lengte/2],aud1 len 

471 move.w #400,aud1 per 

472 move.w #64,audl vol 

473 move.w #$8202,dmacon 

474 move.l dosbase,a6 

475 move.l #45,dl 

476 jsr delayjaé) 

477 move.w #$2,dmacon 

478 lea text0,a1 

479 move.l #120,d0 

480 move.l #155,dl 

481 bsr print 

482 rts 

483 

484 bron: 

485 lea text3,a1 

486 move.l #320,d0 

487 move.l #155,dl 

488 bsr print 

489 move.l #$40000,aud1 Ich 

490 move.w #[lengte/2],aud1 len 

491 move.w #500,aud1 per 

492 move.w #64,aud1 vol 

493 move.w #$8202,dmacon 

494 move.l dosbase,a6 

495 move.l #55,d1 

496 jsr delayjaé) 

497 move.w #$2,dmacon 

498 lea text0,a1 

499 move.l #120,d0 

500 move.l #155,dl 

501 bsr print 
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502 rts 

503 

504 ;terug naar CLI indien 

505 ;instrument file niet 
506;gevonden! 

507 hulp routines- 

508 ;lijnen (borders) in het 

509 ;window zetten, zodat 

510 ;het scherm niet zo kaal is. 

511 

512 borderdraw: 

513 lea border,al 

514 move.w#0,d0 

515 move.w#0,d1 

516 move.l rastport,a0 

517 jsr drawborder(a6) 

518 rts 

519 

520 ;tekst in het window zetten. 

521 

522 print; 

523 move.l intbase,a6 

524 move.l rastport,a0 

525 jsr printitext(a6) 

526 rts 

527 

528 ;-einde- 

529 ;hier wordt al het gebruikte 

530 ;afgesloten (intuition, graphics 

531 ; enz..) 

532 

533 afsluiten: 

534 ;window sluiten 

535 move.l intbase,a6 

536 move.l windowhd,a0 

537 jsr closewindow(a6) 

538 

539 ;screen sluiten 

540 move.l intbase,a6 

541 move.l screenhd,a0 

542 jsr closescreen(a6) 

543 

544 ;intuition afsluiten 

545 move.l execbase,a6 
545 move.l intbase,a1 

547 jsr closelibrary(a6) 

548 

549 idos.library sluiten 

550 move.l execbase,a6 

551 move.l dosbase,a1 

552 jsr closelibrary(a6) 

553 

554 ;graphics.library sluiten 

555 move.l execbase,a6 

556 move.l gfxbase,a1 

557 jsr closelibrary(a6) 

558 

559 ;seriel.device sluiten 

560 lea reply,a1 

561 jsr remport(a6) 

562 

563 lea devio,a1 

564 jsr ciosedev(a6) 

565 

566 ;terug naar CLI 

567 rts 

568 

569 ;-data- 

570 even 

571 screen_defs: 

572 dc.w 0,0,640,256,4 

573 dc.b0,1 

574 dc.w $8000,15 

575 dc.l 0,titel,0,0 

576 


577 titel: 

578 dc.b 'MIDI demo met de Cheetah 
MK5’,0 

579 

580 even 

581 windowdefs: 

582 dc.w 0,9,640,245 

583 dc.b 0,2 

584 dc.l $200,$100f,0,0,windownaam 

585 screenhd: dc.l 0 

586 dc.l 0 

587 dc.w 150,50,640,245,15 

588 

589 even 

590 windownaam; 

591 dc.b'Demo version (c) Hans & 
Danny’,0 

592 

593 border: 

594 dc.w 0,0 

595 dc.b3,0,0,5 

596 dc.l koord,border2 

597 

598 border2: 

599 dc.w 0,0 

600 dc.b 4,0,0,22 

601 dc.l koord2,border3 

602 

603 border3: 

604 dc.w 0,0 

605 dc.b 5,0,0,5 

606 dc.l koord3,0 

607 

608 koord: 

609 dc.w 30,40,600,40,600,150, 
30,150,30,40 

610 

611 koord2: 

612 dc.w 50,145,50,60,100,60, 

100 145 150 145 

613 dc.w 15b,60!200,60,200,145,250, 

145.250.60 

614 dc.w 300,60,300,145,350,145,350, 

60.400.60 

615 dc.w 400,145,450,145,450,60,500, 
60,500,145 

616 dc.w 550,145,550,60 

617 

618 koord3: 

619 dc.w 45,60,555,60,555,145, 

45.145.45.60 

620 

621 even 

622 textO: 

623 dc.b 0,1,4 

624 even 

625 dc.w 0,0 

626 dc.l 4,txt0,0 

627 txtO: 

628 dc.b ’ ’,0 

629 

630 even 

631 textl: 

632 dc.b 1,0,0 

633 even 

634 dc.w 0,0 

635 dc.l0,txt1,0 

636 txtl: 

637 dc.b ’Cheetah MK5 MIDI 
keyboard’,0 

638 

639 even 

640 text2; 

641 dc.b 1,0,0 

642 even 


643 dc.w 0,0 

644 dc.l0,txt2,0 

645 txt2: 

646 dc.b’‘’,0 

647 

648 even 

649 text3: 

650 dc.b 1,0,0 

651 even 

652 dc.w 0,0 

653 dc.l 0,txt3,0 

654 txt3: 

655 dc.b ’*’,0 

656 

657 even 

658 windowhd; dc.l 0 

659 intbase: dc.l 0 

660 intname; 

661 dc.b ’intuition.library’,0 

662 dosname: 

663 dc.b ’dos.library’,0 

664 gfxname: 

665 dc.b ’graphics.library’,0 

666 even 

667 dosbase: dc.l 0 

668 gfxbase: dc.l 0 

669 rastport: dc.l 0 

670 

671 even 

672 devicename: 

673 dc.b ’serial.device’.O 

674 even 

675 buffer: 

676 dc.b 80,0 

677 even 

678 

679 devio: 

680 message: blk.w10,0 

681 io: bik.w 6,0 

682 ioreq: bik.w 8,0 

683 ioextd: bik.w 17,0 

684 reply: bik.w 8,0 

685 

686 even 

687 sound: dc.l 0 

688 

689 even 

690 ;hier de lengte van het instrument 

691 ;invullen. 

692 lengte = 9900 

693 

694 even 

695 ;hier de naam van het in te laden 

696 jinstrument invullen 

697 instrument name: 

698 dc.b ’df0:strings5’,0 

699 ;einde MIDI demo. 

700 
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